ex2 = new (mk_person "John" "Smith" 27) >>+ (\p -> do (p <== last) *= (++ " Jr.")
                                                      (p <== age) .= 25
                                                      eval p)
ex2 = new (mk_person "John" "Smith" 27) >>+ (\p -> do (p <== last) *= (++ " Jr.")
                                                      (p <== age) .= 25
                                                      eval p)
ex2 = new (mk_person "John" "Smith" 27) >>+ (\p -> do (p <== last) *= (++ " Jr.")
                                                      (p <== age) .= 25
                                                      eval p)