Richard Suchenwirth - (under construction) Here's a first approximation of making Tcl simulate LISP - there are subtle differences yet to solve, e.g. the $x formulation below - but build on it, and enjoy!
proc progn body {
set body [string map {( \{ ) "\} "} $body]
foreach cmd $body {
set _ [uplevel 1 $cmd]
}
set _
}
foreach op {+ - * /} {
proc $op args [string map [list @op@ $op] {expr [join $args @op@]}]
}
interp alias {} defun {} proc
interp alias {} setq {} set
set res [progn {
(defun sq (x) (* $x $x))
(setq y 3)
(sq $y)
}]
puts $res