4.3BSD/usr/contrib/icon/libtest/t-iscope.icn

procedure main()
   write(image(Descr(0,0)))
   write(image(Descr(0,1)))
   write(Indir([]))
   write(Word1(1,0))
   write(Word1(main,1))
   write(Word2(1,0))
   write(Word2(main,1))
   write(Symbol("eglobal") - Symbol("globals"))
   write(Efp())
   write(Gfp())
   write(Pfp())
end