(port-map(^n(print(-(integer-length n)1)))read)