A Haskell implementation of the mean curvature flow of a curve