ek-char #:optional (port (current-input-port)))
    (lookahead-char port))

  (define* (read #:optional (port (current-input-port)))
    (get-datum port))

  (define* (write-char char #:optional (port (current-output-port)))
    (put-char port char))

  (define* (newline #:optional (port (current-output-port)))
    (put-char port #\newline))

  (define* (write object #:optional (port (current-output-port)))
    (put-datum port object))

  )
