20100303.nudge

block {
  value «int»
  do int_max
  block {}
  block {
    value «int»
    value «int»
    ref planck_constant
    block {
      block {
        block {}}
      value «bool»}
    block {}
    ref x1}
  ref planck_constant
  do int_swap
  do exec_rotate
  ref g
  value «bool»
  value «bool»
  block {}
  block {}
  ref x3
  do bool_pop
  ref x3
  value «code»
  value «int»
  block {}
  block {
    block {
      value «int»
      value «int»
      ref x2
      block {
        do bool_shove}}
    value «code»
    value «bool»}
  do bool_or
  do float_equal_q
  ref x2
  block {}
  ref planck_constant
  do float_define
  block {
    block {
      block {}
      block {
        do bool_or
        value «code»}}}
  block {}} 
«int» -67
«int» 55
«int» 81
«bool» true
«bool» false
«bool» false
«code» block {do float_subtract value «bool» value «code» value «bool» block {block {}} }
«bool» false
«code» ref x3
«bool» true
«int» -57
«int» -85
«int» -90
«code» block {block {block {} do int_divide do float_add } ref x1 value «int» value «code» ref x1 do float_divide value «bool» do int_shove ref x2 ref g }
«int» -78
«code» block {block {do int_yankdup value «code» ref x3 } }
«code» 
«bool» false
«bool» true
«code» block {ref x2 value «int» value «bool» do exec_do_count ref planck_constant block {} block {ref x2 do exec_yank ref g do int_from_float value «bool» value «int» } do bool_shove ref x3 ref x2 do bool_flush value «int» }
«int» 3
«bool» false
«bool» false
«int» -23
«int» 42