loop package:pipes

Create a Pipe from a ListT transformation
loop (k1 >=> k2) = loop k1 >-> loop k2

loop return = cat