{-# LANGUAGE UnicodeSyntax #-}
import Control.Applicative ((<$>))

import Inversions

inputFile ∷ FilePath
inputFile = "IntegerArray.txt"

main ∷ IO ()
main = print =<< inversions <$> map (read ∷ String → Int) <$> lines <$> readFile inputFile