[ 0 temp put
    0 temp put
    tuck dup size times
      [ 2dup swap
        0 temp put
        0 swap witheach
          [ unrot
            over size
            over = iff
              [ drop
                conclude ]
              done
            rot dip
              [ 2dup peek ]
            = tuck * +
            dup temp take
            max temp put ]
        2drop
        temp take
        dup temp share > iff
          [ temp release
            i^ temp replace
            temp put ]
        else drop
      behead drop ]
    2drop
    temp take dip
      [ temp take split nip ]
    split drop ]              is lcs ( $ $ --> $ )

  $ "thisisatest" $ "testing123testing" lcs echo$ cr