#!/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))