{"body":"(a --- [print bits])\n: 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)\n\n(a b --- a ^ b)\n: EXPO\n  OVER SWAP 1 ?do OVER * LOOP NIP ;\n\n( a -- a [floating point to data stack])\n: LOAD-F PAD DUP F! @ ;\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/rr4i2YMp","modified":1507142397,"id":"rr4i2YMp","size":265,"lines":9,"own_paste":false,"theme":"","date":1507142397}