;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; InSitu Script sample code 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(setq a 2)
;(setq l (list (quote *) (quote a) 1))
;l
;(car (cdr l))
;f

;(setq x 100)
;(setq y 200)
;(setq +* (quote (lambda (x y) (+ 1 (* x y)))))
;(defun +* (x y) (+ 1 (* x y)))
;(defun ii () (quote 34.3))
;ii
;(setq bla ii)
;(ii 34)
;(bla)
;bla
;+*
;(eval (quote +*))
;(list +*)
;(+* 3 4)
;(+* 1234 123.1231)
;((lambda (x) (+ 1 x)) 8)

;(defsup testing (bla blu) 
;	(setq bla (* blu blu))
;	(+ bla bla))
;testing

;(testing 2 2342349999.242134)

(setq n (Noop))
(setq s 
  (Dock "Mydock" 
    (If (Or (Ttester 1))
	(Taction 1)
	(Taction 2)
	1.0)))

(Dock "Second Dock")
(print-docklist)


