ALIAS gen.grats {
  %grats.gen.words.count = $$1
  %grats.gen.word = 1

  while ( %grats.gen.word <= %grats.gen.words.count ) {
    /tokenize 45 Word1-word2-word 3-word..?4-wordN

    if ( %grats.gen.word = 1 ) %grats.gen.wootage = [ $ $+ [ $rand(1,$0) ] ]
    else %grats.gen.wootage = %grats.gen.wootage [ $ $+ [ $rand(1,$0) ] ]

    inc %grats.gen.word
  }

  /msg $active %grats.gen.wootage

  unset %grats.gen.words.count , %grats.gen.word , %grats.gen.wootage
}