##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: October 2016
# Modified: 2018-12-26/20:36-0500 btiffin
##+
#
# proc.icn, convert to procedure if possible
#
procedure main()
     # lookup write builtin
     s := "write"
     p := proc(s, 0) | stop("builtin lookup fail for " || s)

     # and use the default built-in
     p("Hello, world")

     # the global name "write" is overriden by the next procedure
     write("Does nothing now, no output will occur")
end

procedure write(s)
    # sophisticated override
    # ...
end