import Data.List

hudshiy shag = maximum
	[ etaj `div` shag
	+ fromEnum (etaj + shag <= 100)
	+ if broski2 == 0 then shag - 1 else broski2
	| etaj <- [1..100]
	, let broski2 = etaj `rem` shag
	]

main = print $
	[shag
	| (shag, hudshiy) <- zip [1..] hudshie
	, hudshiy == ludshiy_hudshiy
	] where
		hudshie         = map hudshiy [1..100]
		ludshiy_hudshiy = minimum hudshie