module Main
  ( main
  ) where

main :: IO ()
main
 = do
  print $ fmap (const 1) Just 2