module Main where import Control.Monad main :: IO () main = do print 500