kill(all)$

van=facebook.com/LearningCalculus;

varNames:rest(makelist(
          if(alphacharp(ascii(i)))
          then
           parse_string(ascii(i)) else [], i, 96, 99));

A:matrix([1, -1/2, 0],[0,1,-1/4],[2,0,-1]);

k:0$ B:matrix([k],[k],[k]);

X:first(linsolve_by_lu(A,B))$
create_list(varNames[i] = first(X[i]),i,1,3);

van=facebook.com/LearningCalculus;

A:matrix([%alpha, %beta, %gamma],[%delta,%epsilon,%zeta],[%eta,%theta,%iota]);

B:matrix([%kappa],[%lambda],[%mu]);

X:first(linsolve_by_lu(A,B));

L:create_list(varNames[i] = first(X[i]),i,1,3)$

first(L);second(L);third(L);