expand' base exp cur acc = expand' base (exp-1) (cur*base) (cur:acc)
expand' base exp cur acc = expand' base (exp-1) (cur*base) (cur:acc)
expand' base exp cur acc = expand' base (exp-1) (cur*base) (cur:acc)