module Main where

import Types

main :: IO ()
main = do
  putStrLn "Reading:"
  print (read test :: Sudoku)
  putStrLn "Pretty Printing:"
  putStrLn . pretty $ (read test :: Sudoku)

test :: String
test = "070000043040009610800634900094052000358460020000800530080070091902100005007040802"