main = do arguments <- getArgs
          exists <- doesFileExist . head $ arguments
          if arguments == []
             then
                 putStrLn "Usage:\n./xor-break [FILE]"
             else
                 if not exists
                    then
                        putStrLn $ "File " ++ file ++ " doesn't exist."
                    else
                        contents <- readFile . head $ arguments
                        let keyLength = getKeyLength contents
                            splitData = getEvery keyLength contents
                            key = getKeys splitData
                            decrypted = decrypt key contents
                            file = head arguments 
                        print decrypted