Geometric Sequence

Write `geom_seq(a, r, n)` returning first `n` terms with first term `a` and common ratio `r`.