PROGRAM Wirth01(Input, Output);
    VAR
        A, B: Integer;

    FUNCTION Power(X, N: Integer): Integer;
        VAR
            W, Z, I: Integer;
    BEGIN
        W := X;
        I := N;
        Z := 1;

        WHILE I <> 0 DO BEGIN   (* Z*W^I = X^N *)
            IF Odd(I) THEN
                Z := Z * W;
            W := Sqr(W);
            I := I DIV 2;
        END;
        Power := Z;
    END;    (* Power *)

BEGIN
    Read(A);
    WHILE A <> 0 DO BEGIN
        Read(B);
        WriteLn(A, B, Power(A, B));
        Read(A)
    END
END.