+CODE f->i
+ a = reinterpret(Float64, popPS())
+ pushPS(Int64(round(a)))
+END-CODE
+
+: f/mod
+ 2dup fmod -rot f/ ;
+
+: 0.0
+ [ 0 i->f ] literal ;
+
+: 1.0
+ [ 1 i->f ] literal ;
+
+: -1.0
+ [ -1 i->f ] literal ;
+
+: 10.0
+ [ 10 i->f ] literal ;
+
+: flog10
+ flog [ 10 i->f flog ] literal f/ ;
+
+: fabs
+ dup 0.0 f< if
+ -1.0 f*
+ then
+;
+
+: floor
+ dup 0.0 f>= if
+ dup 1.0 fmod f-
+ else
+ dup 1.0 fmod dup 0.0 <> if
+ f- 1.0 f-
+ else
+ drop
+ then
+ then