record array(a,b,c,d,e,f,g) procedure dummy(u,v,x,y,z) suspend u | v return x end procedure main() write("2 === +2 ----> ",image(2 === +2) | "none") write("2.0 === +2.0 ----> ",image(2.0 === +2.0) | "none") write("3 === *\"abc\" ----> ",image(3 === *"abc") | "none") write("'abc' === ('abc' ++ '') ----> ",image('abc' === ('abc' ++ '')) | "none") write("'abc' = ('abc' ++ '') ----> ",image('abc' = ('abc' ++ '')) | "none") end