a:"0123456789";for i in charlist(?read\-line())do(?princ(ssearch(i,a)-1),a:concat(i,sremove(i,a)));