module Litres where

litres :: Double -> Integer
litres d = floor (d * 0.5)