for a=0to 15for b=0to 15?hex$(mod(a*b,16));next
?next