[ $ "ACGT" 4 random peek ]      is randomgene     (   --> c )

  [ $ "" swap times
      [ randomgene join ] ]       is randomsequence ( n --> $ )

  [ dup size random
    3 random
    [ table
      [ pluck drop ]
      [ randomgene unrot stuff ]
      [ randomgene unrot poke ] ]
    do ]                          is mutate         ( $ --> $ )

   200 randomsequence
   dup prettyprint cr cr dup tallybases
   cr cr say "Mutating..." cr
   10 times mutate
   dup prettyprint cr cr tallybases