fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun findAns n = let fun findAnsAux x = let val shorter = x div 2 val longer = x - shorter in shorter * longer end in if n < 4 orelse n mod 2 <> 0 then 0 else findAnsAux (n div 2) end val () = let val d = readInt () val ans = findAns d in print (Int.toString ans ^ "\n") end