PEG a_pe_grammar (Expression)

 Expression <- Function ;
 Function   <- Sinus ;
 Sinus      <- 'sin(' Expression ')' ;

END;
