(map print(port-map(rec,s(if(#/{/s),(regexp-replace* s"01|10""""{1*}""1""{0+}""0")s))read-line))