#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(use r7rs)
(import (scheme base)
        (scheme read)
        (scheme write))

(let ((p (open-input-string "")))
  (write (peek-u8 p))
  (newline)
  (write (peek-char p))
  (newline)
  (write (read-u8 p))
  (newline))

----------------------------------------------

ponk% ./chicken-peek-u8.scm
0
#!eof
#!eof