See element sect
subsubsect
(subhead , (routinelist | (p | table | figure | mdefs) * ))
subsubsubsect |_(subhead, |__(routinelist | |___(p | |____table | |____figure | |____mdefs)*))