Module

Railroad diagramfuncidentifier(identifier,identifier){letidentifier=Expr;Expr;Expr}

identifier

Railroad diagramidentStartidentStartdigit

Expr

Railroad diagramidentifier:=ExprPrimaryExpr+-*/PrimaryExpr

identStart

Railroad diagramletter_

PrimaryExpr

Railroad diagram(Expr)digitidentifier