type token = | VALLEY| UP| UNDER| TOWARD| TO| THROUGH| TEXT of string| STAYING| STAR| SQUARE| RPAREN| REVERSE| RBRACKET| RBRACE| POINT_MEMBER_OPEN| POINT of string| PERP| PAPER| OVER| OUTSIDE| ONTO| ON| NUMBER of Q.t| NEWLINE| MOVING| MOUNTAIN| MARK| MAP| LPAREN| LINE_MEMBER_OPEN| LBRACKET| LBRACE| INTO| INSTANCE of string| IDENT of string| FROM| FREE| FOLD_KW| FLIP| FLATTEN| FLAP_BRACKET| EXPORT| EQ| EOF| DEF| CREASE of string| BETWEEN| BANG| BACKSLASH| AT| AS| APPLY| ANNOT of string option * string| AND| AMP| ALIGN
val program :
(Stdlib.Lexing.lexbuf -> token) ->
Stdlib.Lexing.lexbuf ->
Ast.program