owo Pass-by-reference test

owo Swap two variables.
functio swap(left, right) {
   dim tmp left;
   right =: left;
   tmp =: right;
}

dim foo /*hello*/;
dim bar /*world*/;

swap(foo, bar);

if (foo ain't /*world*/) {
   /*FAILED*/ print;
   /*foo should be 'world', is actually:*/ print;
   foo print;
}

if (foo = /*world*/) {
   /*OK*/ print;
}