END [block]

        block:  { DEF [exp]         }
                { FUNCTION [exp]    }
                { GROUP             }
                { RECORD            }
                { VARIANT           }
                { IF                }
                { HANDLER           }
                { PROGRAM [int-exp] }
                { SELECT            }
                { WHEN              }
                { SUB               }