let rec(!)?(c=input_char stdin)p=c>'
'&c<=p& !p;print_char c;!c;;!'
'