(= i 27 w(n-of 35"")b #\ )(on c(readline)(= i(+(if(< b c)-1(> b c)1 0)i)b c w.i(+ w.i(n-of(- index(len w.i))" ")c)))(map prn(rem""w))