KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Strings
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: constant
NORMAL_TEXT: <space>
NORMAL_TEXT: String
NORMAL_TEXT: <space>:=<space>
STRING_TEXT: "A string that is not closed<lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Natural
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space>
KEYWORD_TEXT: if
NORMAL_TEXT: <space>
NORMAL_TEXT: A
NORMAL_TEXT: <space>/=<space>
STRING_TEXT: ""
NORMAL_TEXT: <space>
KEYWORD_TEXT: then
NORMAL_TEXT: <lf><space><space><space><space><space>
NORMAL_TEXT: Put_Line
NORMAL_TEXT: <space>(
NORMAL_TEXT: A
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space>
KEYWORD_TEXT: return
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: if
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space>
KEYWORD_TEXT: case
NORMAL_TEXT: <space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>0 =>
NORMAL_TEXT: <lf><space><space><space><space><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>+ 2;
NORMAL_TEXT: <lf><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>1 =>
NORMAL_TEXT: <lf><space><space><space><space><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>= 2 *<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>+ 1;
NORMAL_TEXT: <lf><space><space><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=>
NORMAL_TEXT: <lf><space><space><space><space><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>=<space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>/ 2 + 1;
NORMAL_TEXT: <lf><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: case
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space>
NORMAL_TEXT: Put
NORMAL_TEXT: <space>(
STRING_TEXT: "; Another String not closed<lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Strings
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
