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

#  This program tests the "basis" of the Icon system: iconx/start.s,
#  rt/setbound.s, lib/invoke.s, iconx/interp.s, lib/efail.s, and
#  lib/pfail.s

procedure main()
   write(1)
   write("abc")
   write('abc')
   write(image("abc"))
   write(image('abc'))
   write(type([]))
   write("abc"[2])
   write("abc"[1:2])
   x := [1,2,3]
   write(x[2])
end