let rec($)x?(c=input_char stdin)y=c>y&print_char c=();c='"'&y$x;x$y;;'	'$' '