use strict;
use warnings;
use Depot;

my $x = 42;
deposit("x", $x);
deposit("y", 333);
$x = 0;
print $x, "\n";

$x = retrieve("x");
print $x, "\n";
$x = retrieve("y");
print $x, "\n";