init_glob := 'readlib( 'init_glob',`init_glob.mxt`)';

# define main function
main := proc()
local eq1, eq2, eq3, eq1A, eq2A, eq3A, L, M, T, LA, MA, TA;
    init_glob();
    eq1 := M / kg = me;
    eq2 := M * L ^ 2 / T * sec/ (kg * meters ^ 2 ) = h;
    eq3 := L / T * sec / meters = c;

    print(solve([eq1, eq2, eq3],[L, M, T]));

    eq1A := MA /kg = me_v;
    eq2A := MA * LA ^ 2 / TA * sec/ (kg * meters ^ 2 ) = h_v;
    eq3A := LA / TA * sec / meters = c_v;

    print(solve([eq1A, eq2A, eq3A],[LA, MA, TA]));
end;

# call main
main();