intChecks :: [Expression () -> Expression ()]
intChecks =
  [ typeof "number"
  , \x -> ref "isFinite" <| x
  , \x -> equal (obj ["Math","floor"] <| x) x
  ]
intChecks :: [Expression () -> Expression ()]
intChecks =
  [ typeof "number"
  , \x -> ref "isFinite" <| x
  , \x -> equal (obj ["Math","floor"] <| x) x
  ]
intChecks =
  [ typeof "number"
  , \x -> ref "isFinite" <| x
  , \x -> equal (obj ["Math","floor"] <| x) x
  ]