main :: IO ()
main = do
    contents <- readFile "..\\goldi_input_1.txt"
    let (pref:orgs) = zip [0..] $ conv $ getGoldi contents
    putStrLn $ intercalate " " $ map (show . fst) $ filter (checkSeats (snd pref)) $ orgs
main :: IO ()
main = do
    contents <- readFile "..\\goldi_input_1.txt"
    let (pref:orgs) = zip [0..] $ conv $ getGoldi contents
    putStrLn $ intercalate " " $ map (show . fst) $ filter (checkSeats (snd pref)) $ orgs
main = do
    contents <- readFile "..\\goldi_input_1.txt"
    let (pref:orgs) = zip [0..] $ conv $ getGoldi contents
    putStrLn $ intercalate " " $ map (show . fst) $ filter (checkSeats (snd pref)) $ orgs