##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-11-12/17:34-0500
##+
#
# lisping.icn, Demonstrate the IPL Lisp interpreter
#
link lisp, fullimag
procedure main()
    initialize()
    preload()
    s := "(print (quote (1 2 3)))"
    every l := bstol(Map(s)) do { PRINT(result := [EVAL([l])]) }
    write("first result: ", fullimage(result))

    s := "(setq a (quote (1 2 3)))"
    every l := bstol(Map(s)) do { PRINT(result := [EVAL([l])]) }
    write("second result: ", fullimage(result))
end