loop{putc'14025*3'[7&$.+=getc]}