fork download
  1. c 0=0
  2. c n=c(div n 2)*10+mod n 2
  3. b('-':r)='-':b r
  4. b r=show.c.read$r
  5.  
  6. main=interact b
Success #stdin #stdout 0s 4784KB
stdin
-1023
stdout
-1111111111