4.3BSD/usr/contrib/icon/book/01/hello4.icn

procedure main()
   greet("Hello","world")
end

procedure greet(what,who)
   write(what)
   write(who)
end