routine

<routine> ::=
  [<
local_variables>] <statement_list>;