main = do x <- getList
	  print (product x)

getList :: IO [Int]
getList = readLn