(port-map(^s(print(if(#/^\)|\($/s)'frowny'smiley)))read-line)