(while(read-line)=>\(dotimes'99(set!\(regexp-replace #/\+-|-\+|<>|></\"")))(print\))