-- test round
module FloatRound where

extern float "float_of_string" :: "Fz"
extern round "fp_round_int" :: "IF"

main = let! x = float "-3.5"
            y = round x
       in y