{-# LANGUAGE TemplateHaskell #-}

import Data.Record.Label
import Text.WordSearchSolver

main :: IO ()
main = interact conv
    where conv s = let ~(Just ws) = readWordSearch s
                   in  showGridInsert '\n' . fillMatches '_' (getL (ws_grid) $ ws) . solveWordSearch $ ws