(print [1 2 3])
(print "hi there")
(output "~A = ~A~%" [1 + 1] 2)
(do (nl 2) (pr "Two blank lines! What a waste  of space") (nl)) 
(let Stream  (open "simple sum.txt" out)
                String (make-string "~R = ~R~%"  [1 + 1] 2)
                Print (pr String Stream)
                (close Stream))
(let String  (make-string "~R = ~R~%"  [1 + 1] 2) 
     (write-to-file "simple sum.txt" String))