#!/usr/bin/gosh
(define (tell_me_the_truth s)
  (let ((p (eval s (interaction-environment))))
   (if p 
       (print "(" s ") " p " is TRUE")
       (print "(" s ") " p " is FALSE"))))

(define (! p) (not p))
(define (!! p) (not (not p)))

(tell_me_the_truth 0)
(tell_me_the_truth 1)
(tell_me_the_truth "")
(tell_me_the_truth '())
(tell_me_the_truth #f)
(tell_me_the_truth '(/ 0 0))
(tell_me_the_truth '(= (/ 0 0) (/ 0 0)))
(tell_me_the_truth '(/ 1 0))
(tell_me_the_truth '(- (/ 1 0) 1))
(tell_me_the_truth '(- (/ 1 0) (/ 1 0)))
(tell_me_the_truth '(! 1))
(tell_me_the_truth '(!! 1))