Sequence[Sequence[Polygon[(f(s, t), g(s, t), h(s, t)), (f(s + p, t), g(s + p, t), h(s + p, t)), (f(s + p, t + p), g(s + p, t + p), h(s + p, t + p)), (f(s, t + p), g(s, t + p), h(s, t + p))], s, -a, a, p], t, -a, a, p]
Surface[f(s,t),g(s,t),h(s,t), s, -a, a, p, t, -a, a, p]