while 0#(x:?read\-line(?-,?-,0))do(a:charlist(x),z:a[1],a[1]:a[b:length(a)],a[b]:z,dispterms(simplode(a)));