rolling my own (read-char) for admins-friend
adds dog.scm