line c (l,v) = putStrLn (if c == l
                            then " --> " ++ show (l,v)
                            else "  X  " ++ show (l,v))
line c (l,v) = putStrLn (if c == l
                            then " --> " ++ show (l,v)
                            else "  X  " ++ show (l,v))
line c (l,v) = putStrLn (if c == l
                            then " --> " ++ show (l,v)
                            else "  X  " ++ show (l,v))