Keygen WIP

// SVN ONLY SCRIPT!
------------------------------------------------------------------------
"#" = [arg0 = $arg1; result $arg1]
append = [$arg1 = (concat (getalias $arg1) $arg2)]
clampval = [result (max $arg2 (min $arg3 $arg1))]
clampvalf = [result (maxf $arg2 (minf $arg3 $arg1))]

keygen = [
    "keychars" = [ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890] ; k_code = ""
    loop i (# (? $arg1 (clampval $arg1 3 10) 5)) [
        loop p (? @arg2 (clampval @arg2 3 8) 4) [
        k_code = (concatword $k_code (substr $keychars (rnd (strlen $keychars)) 1))
    ]
        if (!= $i (- $arg0 1)) [append k_code ""]
    ]
    say (strreplace $k_code " " "-")
]

// use /keygen <section amount> <section length>
// like, /keygen 6 5
------------------------------------------------------------------------
// SVN ONLY SCRIPT!