#!/bin/sh
# -*- tcl -*- \
exec tclsh "$0" ${1+"$@"}
package require Expect

# read a single character
# Author: Don Libes, NIST

stty raw
expect ?
send_user $expect_out(buffer)
