type token = | VALLEY| UP| UNIT| UNFOLD| UNDER| TRIM| TOWARD| TO| THROUGH| TEXT of string| STAYING| STAR| SQUASH| SQUARE| SHAPE| 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| HEADING| FROM| FREE| FOLD_KW| FLIP| FLATTEN| FLAP_BRACKET| EXPORT| EQ| EOF| DOWN| DEF| CREASE of string| BY| 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