hcl/t/fun-01.hcl

defun aaa(a b) {
	| c |
	set c (+ a b);
	return c;
};

set k (aaa 10 20);

if (= k 30) {
	printf "OK\n";
}
else {
	printf "ERROR\n";
};