%start<'a T.t List.t> main initial: | { } medium: | { } ending | {} word: | initial medium* ending main: | {} | main word Spaces+ { }