Visitor example

data Menu con Menu name :: cs : Menus type Menus : [Menu] itf Root visit perform inh ast :: itf Menu visit gather inh ast :: syn gathMax :: visit layout inh count :: syn count :: itf Menus visit gather inh ast :: syn gathMax :: visit layout inh finMax :: inh count :: syn count :: { Visitor example

item a

very big item b

not so big c

tiny

}