fix #5 s/(intern (read-char stream))/(intern (string (read-char stream)))/