let concat l =     fwd (Input.concat (bwd l))