module Main where

import Data.Char

import Input
import IntCode


main :: IO ()
main = do
    program <- parse . head <$> getInput 21

    let springcode1 = "NOT A T\nNOT B J\nOR J T\nNOT C J\nOR T J\nAND D J\nWALK\n"

    -- let loop cont inp =
    --         case runContinue cont inp of
    --             Left (cont', out) -> do
    --                 putStr (map (chr . fromIntegral) out)
    --                 line <- map (fromIntegral . ord) <$> getLine
    --                 loop cont' (line ++ [10])
    --             Right (_, out) ->
    --                 putStr (map (chr . fromIntegral) out)

    -- loop (initialContinuation program) []

    let output1 = snd (run program (map (fromIntegral . ord) springcode1))
    print (last output1)

    let springcode2 = "NOT A T\nNOT B J\nOR J T\nNOT C J\nOR T J\nAND D J\nNOT E T\nNOT T T\nOR H T\nAND T J\nRUN\n"

    let output2 = snd (run program (map (fromIntegral . ord) springcode2))
    -- putStr (map (chr . fromIntegral) output2)
    print (last output2)