%{
  open Ast
%}

%token KWD_FN
%token <string> IDENT

%start <program> program

%%

program:
| decls=decl* { decls }

decl:
| func=func { DeclFunc func }

func:
| KWD_FN name=IDENT { { name = name } }