{-# OPTIONS_GHC -Wall #-}
--module MasterControl where

import LineStorage
import Word
import Input (parse)
import CircularShifter (shift)
import Alphabetizer (sort_)
import Output (print_)

main :: IO ()
main = do sampleData <- parse "test.txt" :: IO (StorageMap (StorageMap WordString)) -- (StorageList (StorageList WordString))
          let shifted = shift sampleData :: StorageMap (StorageMap (StorageMap WordString)) -- StorageList (StorageList (StorageList WordString))
              sorted = sort_ shifted
          print_ sorted