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