DIM number_1 AS INTEGER = 4 DIM number_2 AS INTEGER = 2 DO UNTIL number == 0 number _2 -= 1 number_1 *= number_1 LOOP RETURN number_1