do dataFileName <- getDataFileName
text <- TIO.readFile dataFileName
let ((wharfLines, colNames), moves) = successfulParse text
- -- print wharfLines
- -- print colNames
- -- print moves
let wharf = makeWharf wharfLines colNames
- -- print wharf
- -- print $ applyMove wharf (head moves)
putStrLn $ part1 wharf moves
putStrLn $ part2 wharf moves