#lang scheme

(printf "Aplicación del predicado zero. (zero? 4) ==> ~a~n" (zero? 4))

(printf "Aplicación del predicado positive?. (positive? 56) ==> ~a~n" (positive? 56))

(printf "Aplicación del predicado negative?. (negative? -123) ==> ~a~n" (negative? -123))

(printf "Aplicación del predicado odd?. (odd? 23) ==> ~a~n" (odd? 23))

(printf "Aplicación del predicado even?. (even? 34) ==> ~a~n" (even? 34))

(printf "--------------------------------------------------------~n")

(printf "Aplicación del procedimiento max. (max 1 5 7 3 8 2) ==> ~a~n" (max 1 5 7 3 8 2))

(printf "Aplicación del procedimiento min. (min 1 5 7 3 8 -2) ==> ~a~n" (min 1 5 7 3 8 -2))

(printf "------Operaciones elementales con 1 argumento-----------~n")

(+ 4)
(- 4)
(* 4)
(/ 4)

