#!/usr/bin/env stack
-- stack --resolver lts-12.5 script

-- WORK IN PROGRESS

module Day3B where
import Text.Regex.TDFA

main :: IO ()
main = print $ ("#1 @ 662,777: 18x27" =~ "#(\\d+) @ (\\d+),(\\d+): (\\d+)x(\\d+)" :: (String, String, String, String, String))