print$_+=~$_?$&<=>$_:$&until/$&/&&getc!~/./