use LazyFilt;
use strict; 
use warnings;

sub calc { 
  my ($p1,$p2,$p3) = @_;
  print "Here is where really slow stuff happens\n";
  my $sum = $p1 + $p2;
}

my $result =[l] calc(30,20,"FooBar");
my $result2 =[l] calc($result,20,"YoYo");
print "Just about now I need to show the first result: $result\n";
my $result3 = $result + $result2;
print "And now I need the whole result: $result3 \n";
print "After this it is free to poke around: $result2\n";

my $a = 10;
my $result4 =[l] 2+$a;
$a = 14;
print "Result? $result4\n";