use strict;
use warnings;

# 1.10.0 200410151900 - actions sto/?/rcl to copy/assign/recall variable

my %var;

#	"sto"   => [ 1, sub { $var{a} = $_[0] }], # copy
#	'?'     => [ 1, sub { $var{a} = $_[0] }], # assign
$action{sto} = [ 1, sub { $var{a} = $_[0] }]; # copy
$action{rcl} = [ 0, sub { $var{a} }]; # recall

return {
	author  => "Shiar",
	title   => "user variables",
	version => "1.10",
};

