A Haskell program that simulates Kempe's universal linkages, drawing any algebraic curve in the plane.