(while(print(regexp-replace-all #/(\d)(.\1)*/(read-line)"[\\0]")))