(cascade 1e3[if ?2<1[pr "]type ? rc]rc[modulo 3*?2+? 7]7)+bye