;;;;t1.scm


(use dollar)


($ printf "%d times Hello, %s!\n" 1000 "world")

(define f 99.2) 

(let ((r (let-location ((n double))
	   (let ((f ($ double modf (double f) (location n))))
	     (cons n f) ) )))
  (print r))