use Wire;
use Local_Propagation;

my ($F, $C);

{ my ($i, $j, $k, $l, $m) = Wire->make(5);
  $F = new_io('Fahrenheit', $i);
  $C = new_io('Celsius', $m);
  new_constant(32, $j);
  new_constant(5/9, $l);
  new_adder($j,$k,$i);
  new_multiplier($k,$l,$m);
}

while (<DATA>) {
  chomp;
  print "Now doing: $_\n";
  eval;
}
__DATA__
input($F, 212);
input($F, 32);
revoke($F);
input($C, 37);
input($F, 100);
revoke($C);
input($F, 100);