done algebra.hs