$p|~$c>ß&&print$p=$c)$c=fgetc(STDIN);