;; -*-theme-d-*-

;; Copyright (C) 2014  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK


(define-proper-program (tests test235)


  (import (standard-library core)
	  (standard-library math)
	  (standard-library console-io))


  (define main
    (lambda (() <none> nonpure)
      (let ((r 2.5)
	    (r2 0.5))
	(console-display (abs -1.5))
	(console-newline)
	(console-display (square r))
	(console-newline)
	(console-display (- r))
	(console-newline)
	(console-display (sqrt r))
	(console-newline)
	(console-display (expt r 2.0))
	(console-newline)
	(console-display (sin r))
	(console-newline)
	(console-display (cos r))
	(console-newline)
	(console-display (tan r))
	(console-newline)
	(console-display (asin r2))
	(console-newline)
	(console-display (acos r2))
	(console-newline)
	(console-display (atan r2))
	(console-newline)
	(console-display (atan2 r 1.8))
	(console-newline)
	(console-display (exp r))
	(console-newline)
	(console-display (log r))
	(console-newline)
	(console-display (log10 r))
	(console-newline)
	(console-display (sinh r))
	(console-newline)
	(console-display (cosh r))
	(console-newline)
	(console-display (tanh r))
	(console-newline)
	(console-display (asinh r))
	(console-newline)
	(console-display (acosh r))
	(console-newline)))))
	;; (console-display (atanh r))
	;; (console-newline)))))
