let list l =
    fwd (Input.list (List.map bwd l))