putc~/1/+($`>$&?$`[0]*25/8-60:31)while gets'1'