MODULE Main;
IMPORT Fmt, Scan, Params, Wr, Stdio;

VAR N, a, b, c, d, e, f, x: INTEGER;
BEGIN
    IF Params.Count > 0 THEN
        N := Scan.Int(Params.Get(1));
    ELSE
        N := 1;
    END;
    x := 0;
    FOR a := 1 TO N DO
        FOR b := 1 TO N DO
            FOR c := 1 TO N DO
                FOR d := 1 TO N DO
                    FOR e := 1 TO N DO
                        FOR f := 1 TO N DO
                            INC(x);
                        END;
                    END;
                END;
            END;
        END;
    END;
    Wr.PutText (Stdio.stdout, Fmt.Int(x));
    Wr.Close (Stdio.stdout);
END Main.