PRODUCTIONS
-->Grammar =
                                   (. Init ; SetStart; .) 
         { ANY } 
                                   (. WriteStr(CopySourceToCurrent); .) 
 EOF
                                   (. Final ; .) 
        .
END  -->Grammar.