;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; InSitu Script sample code 2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(defun Time (time while after) 	(If (Ramp time) after while 1))

;(setq Np (Noop))


;(Do (Time 5000 Np (Every 4 Np)))


(load "example_3")

(* 2.3 x)

(+ x x x)

(Dock "first_dock")
(Dock "second_dock")

(defun xx (x) (* x x))

(print-symtab)

(print-docklist)

(listp )

(/ 8 0)
(/)


