let bed file =     fwd (Input.bed (bwd file))