{-# LANGUAGE LambdaCase #-}
module Main where

import Sudoku
import System.Environment (getArgs)


main :: IO ()
main = getArgs >>= \case
  [filename] -> readFile filename >>= print . parseStringToGrid
  _ -> error "Usage: Estinen filename"