#!/usr/bin/guile -s !# (define (tpc p r s) (/ (* 1.0 p) (* r s))) (define c (command-line)) (define p (string->number (cadr c))) (define r (string->number (caddr c))) (define s (string->number (cadddr c))) (write (tpc p r s)) (newline)