let bof f = if f = 0. then false else true