# Pastebin rr4i2YMp
(a --- [print bits])
: 64BITS 63 1 SWAP DO DUP 2 I EXPO AND I RSHIFT 48 + EMIT -1 +LOOP 1 AND 48 + EMIT ; (print 1s place due to expo bug)

(a b --- a ^ b)
: EXPO
  OVER SWAP 1 ?do OVER * LOOP NIP ;

( a -- a [floating point to data stack])
: LOAD-F PAD DUP F! @ ;