((^a(map(^s(print(do((\ 0(+\ 1))(u""#`",u,(~ s\\)"))((=(count(pa$ rxmatch #"^~u")a)1)u))))a))(port-map + read-line))