and tt X length cons N s length L zeros cons 0 length nil 0 take 0 IL nil take s M cons N cons N and 1 tt 0 length 1 cons 1 s 1 zeros 0 0 0 nil 0 take 2 FULL ./TRS/TRCSR/OvConsOS_nosorts_L.trs