USING: io kernel math math.parser prettyprint sequences ;

IN: math.floating-point

: double. ( double -- )
double>bits
[ (double-sign) .b ]
[ (double-exponent-bits) >bin 11 48 pad-head bl print ] [
(double-mantissa-bits) >bin 52 48 pad-head 11
[ bl ] times print
] tri ;