(port-map(^s(print(if(equal?(sort s)s)1 0)))read-line)