(print(regexp-replace-all #/.*?(\d+.)( 0)+/(read-line)"\\1 "))