import HsShellScript

main = mainwrapper $ do

   erg <- pipe_from $
      pipe_to "2\n3\n1" $
         exec "/usr/bin/sort" []

   putStrLn erg