********************************** ******* Testing SmallPascal ****** **********************************