$_->()for map{my$y=$_;sub{print$y}}(split qr,,,q,use re;$y=~tr/kn
ol/Japh/c;$,)[map-0141+ord,q=uabldv;prlxfmdwfeoidxvzofe==~m~.~g];