homogeneous = do new "Same title" "line 1" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 2" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 3" "" $ do addHint (HintString "append" "allowed")
                                                   render
homogeneous = do new "Same title" "line 1" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 2" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 3" "" $ do addHint (HintString "append" "allowed")
                                                   render
homogeneous = do new "Same title" "line 1" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 2" "" $ do addHint (HintString "append" "allowed")
                                                   render
                 new "Same title" "line 3" "" $ do addHint (HintString "append" "allowed")
                                                   render