Convert to functional form

[retrography]

Replace the loops with apply calls