putc /0/?32:$_[0]*3+~/[^89]?1/-53while gets"1"