4.3BSD/usr/contrib/icon/test/std32.icn

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("100 - - 4 ----> ",image(100 - - 4) | "none")
   write("100 --4 ----> ",image(100 --4) | "none")
   write("100- - 4 ----> ",image(100- - 4) | "none")
   write("100 -- 4 ----> ",image(100 -- 4) | "none")
   write("100 - -4 ----> ",image(100 - -4) | "none")
   write("100-() ----> ",image(100-()) | "none")
end