I did it faster V3;1q;1q;{(0(SP)S(1p(2P)(0(1q)C(1j(1j)g8)0ag(1p(1d)!gIq8!)35g!(1m(1a)6a2A!U)08q0(1p(1e)8U8qI!8qI(1p(1h)qU(2R)6!(1p(1h)IUIUkekU8(1p(1h)!UqUeeeUq(5t(1k)UkekU(5t(2L)(aY)6(5t(1j))08!(1p(1b){{{!g8qI!)15(dB(1c)(gf(1t)(0(VE);; your version is 3.04 seconds, mine took 1.71 seconds [i also might have stolen one of your modules]