module Main where

import Control.Monad

main = print $ join (.) (+1) 4