;;;;t1.scm


(import 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))

($ printf "%lu big number!\n" 4611686018427387904)