#lang scheme

(require "Decimal-Romano.ss")
(require "Romano-Decimal.ss")

(define decimal-romano
  (lambda (x)
    (printf "El número es ~s~n" x)
    (if (and (integer? x) (positive? x))
        (arabe->romano x)
        (if (string? x)
            (romano->decimal x)
            "El argumento ni es un entero ni un string"))))

(decimal-romano 45678)

(decimal-romano "XXXIV.DCCLXXXVI")

(decimal-romano "I.CC.CDL")
