4.3BSD/usr/contrib/icon/port/basis8.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()
   call(foo(1,2,3,4,5,6,7))
   call(foo(1,2))
end

procedure call(x)
   fail
end

procedure foo(a,b,c,d,e)
   write(image(a))
   write(image(b))
   write(image(c))
   write(image(d))
   write(image(e))
end