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 () { 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);