Simple command-line Discrete Cosine Transform in Haskell

dct.hs

-- "cabal install vector-fftw split"

import qualified Numeric.FFT.Vector.Unnormalized as FFT
import Data.Vector (fromList, toList)
import Data.List.Split (splitOneOf)
import Data.List (intersperse)
import Control.Monad (forever)
import Control.Arrow ((>>>))

main = forever $
         getLine                      -- read a line
    >>=(   splitOneOf " \t"           -- | split it to chunks on whitespace
    >>>      map read                 -- | | convert them to a list of Doubles
    >>>         fromList              -- | | | convert the list to Vector
    >>>            FFT.run FFT.dct2   -- | | | |  DCT
    >>>         toList                -- | | | convert the resulting Vector back to list
    >>>      map show                 -- | | convert each Double back to String
    >>>    intersperse " "            -- | put " " between all chunks
    >>>    concat                     -- | make one happy string from chunks and " "s
    >>>  putStrLn )                   -- output it