kg2xau.scm

#!/usr/bin/guile
-e main -s
!#
(use-modules (ice-9 format))
(define troy 31.10347680)
(if (null? (cdr (program-arguments))) (quit))
(define kg (string->number (cadr (program-arguments))))
(define grams (* kg 1000))
(define xau (/ grams troy))
(display  (string-append "KG: " (number->string kg) " is exactly this many troy ounces:\n"))
(display  (format #f "~$" xau))
(newline)
(quit)