#!/usr/bin/ruby

var hash = Perl.to_sidef(Parser{:keywords});

var keys = hash.keys.sort;
var max = keys.map{.len}.max;

var cols = 3;
0 ..^ (keys.end, cols) -> each { |i|
    %(#{"%-#{max+2}s" * cols-1}%s\n) -> printf(keys[i .. (i + cols-1) -> ...]);
}