#lang scheme (require (prefix-in test: "pointer-address.ss")) (display test:get-pointer-address)(display "\n") (display (test:get-pointer-address 2))