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