$ uname -m
amd64
$ cat x.scm
(define x
  (foreign-lambda* void ((long x))
    "printf(\"%ld\\n\", x);"))

(x 9223372036854775807)
$ csc -o x x.scm
$ ./x
-9223372036854775808