П Р О Ц Е Д У Р А  "psipown"

    Машинная процедура psipown служит для возведения числа в положительную
    целую степень. s2 - макроцифра

 Формат обращения:
                 <psipown w1s2>
 Результат замены:
                 w3 (w3 = w1 ** s2)