print pack $c='C*',map ++$j^$_,unpack $c,"Kwpp%Gig}bn~-^jb}2[uv}rj\023";