((lambda (a b c d) (letrec ;; 0 input "What is the value of A" a ((stmt0 (lambda () (display "What is the value of A") (display "? ") (set! a (read)) (stmt1))) ;; 1 input "What is the value of B" b (stmt1 (lambda () (display "What is the value of B") (display "? ") (set! b (read)) (stmt2))) ;; 2 input "What is the value of C" c (stmt2 (lambda () (display "What is the value of C") (display "? ") (set! c (read)) (stmt3))) ;; 3 let d = ((b * b) - (4.0 * (a * c))) (stmt3 (lambda () (set! d (- (* b b) (* 4 (* a c)))) (stmt4))) ;; 4 print d (stmt4 (lambda () (display d) (newline) (stmt 5))) ;; 5 end (stmt5 (lambda () (void)))) (stmt0))) 0 0 0 0)