1
2
3
    2dup
    +
b2
16
times #(eval)
wrap-stack
map-show
4
combinations-with-replacement
    flatten
    length
    5
    <
f4
tail
    4
    permutations
        flatten
        read-num
    m2
    extract-array
m5
sort #(list)
group
    head
m1
unlines