$ perl
printf "%5s %.13a\n      %s\n", $_, eval($_), unpack("B*",pack("F>",eval $_)) for qw(1 -1 2 -2 1/3 -1/3)
__END__
    1 0x1.0000000000000p+0
      0011111111110000000000000000000000000000000000000000000000000000
   -1 -0x1.0000000000000p+0
      1011111111110000000000000000000000000000000000000000000000000000
    2 0x1.0000000000000p+1
      0100000000000000000000000000000000000000000000000000000000000000
   -2 -0x1.0000000000000p+1
      1100000000000000000000000000000000000000000000000000000000000000
  1/3 0x1.5555555555555p-2
      0011111111010101010101010101010101010101010101010101010101010101
 -1/3 -0x1.5555555555555p-2
      1011111111010101010101010101010101010101010101010101010101010101

##</code><code>##

  Platform:
    osname=linux
    osvers=6.1.0
    archname=x86_64-linux-gnu-thread-multi
  Compiler:
    cc='x86_64-linux-gnu-gcc'