import Data.List (partition)

main :: IO ()
main = do
  print $ head [1]