4.3BSD/usr/contrib/icon/port/basis7.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()
   foo()
end

procedure foo()
   write(&level)
end