1#!../expect -- 2 3# read a single character 4# Author: Don Libes, NIST 5 6stty raw 7expect ? 8send_user $expect_out(buffer) 9