let rec(!)?(d=input_char stdin)c=c d;c d;!c;;!print_char