print("\nQ& Test script.");

*~ how <~ 'very cool';
var _WHAT_ = "ABQ&%$#@!";

var a = 7;
*~ b <~ 12;
var c <~ 8;
*~ d = 3;

:: _WHAT_.SubString(2, 2) + ' is ' + how;
print(a * b * c * d);

if (a > d) {
    :: "compare operator is sane";
} else {
    :: "sanity check failed";
}

for (*~i<~1;i<=16;i++) {
   :: "[" + i + "]: " + i*i;
}

fq fib(n) { if (n<2) <: 1; <: fib(n-1) + fib(n-2); }

*~ fibs <~ 'fibonacci sequence:';
for (*~i<~0;i<16;i++) {
   fibs = fibs + " " + fib(i);
}
:: fibs;

:: "if you can read this, Q& probably works. Wow."