ttl, a f. set f.r ttl

• _trtl-1-2.patch

$ \ocaml -I . trtl.cma
OCaml version 4.14.1
# open Trtl;;

# itrl_p () ;;
- : unit = ()

# trl_p0();;
- : int = 0
# trl_p1();;
- : int = 0

# trl_u();;
- : unit = ()

# trl_ap();;
- : unit = ()

# (trl_p0(),
   trl_p1());;
- : int * int = (0, -1)

#

back<