5686858
1 2 3 4 5 6
module Main where import Network.UCSPI as UCSPI main :: IO () main = UCSPI.ucspiServer $ \ _ -> getLine >>= putStrLn