diff --git a/src/Main.elm b/src/Main.elm
index 53bc3be..0683cb2 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -3,6 +3,7 @@ module Main exposing (main)
 import Browser
 import Random
 import Html exposing (Html, button, div, p, text)
+import Html.Attributes exposing (disabled, hidden)
 import Html.Events exposing (onClick)
 import GenderFriends exposing (altBlumBlumShub, getPolygenderWithLength, renderPolygender)
 
@@ -44,7 +45,7 @@ viewStr model = case model of
   Ready seed regenCount ->
     let
       (gender, newSeed) = getPolygenderWithLength regenCount seed
-      genderStr = renderPolygender gender
+      genderStr = if regenCount == 75 then "queer platonic partners" else renderPolygender gender
     in "do u think a wuppie and a kitties could be " ++ genderStr ++ ",,?"
 
 view : Model -> Html Msg
@@ -54,6 +55,7 @@ view model =
   , button
     ( case model of
       AwaitingSeed -> []
+      Ready _ 75 -> [disabled True, hidden True]
       Ready _ _ -> [onClick Regenerate]
     )
     [ text "make it gayer" ]