massiv_A :: [IO ()]
massiv_A = map print [0..367]

main :: IO ()
main = do
    massiv_A !! 0
    massiv_A !! 10
    massiv_A !! 0