(while(print(regexp-replace-all*(read-line)"S(?=.*\\* (S*))""\\1""\\* S*|. """))(flush))