4.3BSD/usr/contrib/icon/port/lsusp1.icn

#  This program tests lib/lsusp.s.

procedure main()
   every write((1 | 2 | 3 | 4 | 5 | 6 | 7 | 8) \ 4)
   every write(|"a" \ 5)
   every write(|0 \ 0)
end