if map[if 64<ascii ?[for[i 65[ascii ?]][type char i]]pr[]0]rcs 99 bye