(* testing 
multiple lin
comment *)

Program CheckOutput (in : Integer x , real z	;	out : boolean YEPPES)

 x:= 9 + 17.4 - x;

 y <= true or false

[]

 y < not y and false

 CHAR p= 'l           -- wrong characters

 hussam and _mohsen or 123mohammed     --two wrong identifiers

x=  / .4

x= 4. *  0.9

'\t' and '\n' '\\' '\0' '\''  '\"'

 m := '\m'     -- wrong escape sequence

 if (x<>y) then 

   return 'c'>"xxxx"

else          --single line comment;;-09

 while   y = 5.3 mod 12 do 

 end

 of array[9]

 p = " this is a wrong string

(* unterminated string *)

 function foo()