Fake Keygen 1.1

append = [$arg1 = (concat (getalias $arg1) $arg2)]
appendword = [$arg1 = (concatword (getalias $arg1) $arg2)]
clampval = [max $arg2 (min $arg3 $arg1)]

keygen = [
    keychars = [ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890]
    _str = "" ; _num = (? $arg1 (clampval $arg1 3 10) 5)
    loop i $_num [
        loop p (? @arg2 (clampval @arg2 3 8) 4) [
            appendword _str (substr $keychars (rnd (strlen $keychars)) 1)
        ]
        if (< $i (- $_num 1)) [append _str ""]
    ]
    say (strreplace $_str " " "-")
]

// use /keygen <section amount> <section length>
// like, /keygen 6 5