#!/bin/sh
vim -e -cdigraphs -cq | perl -CSD -nE '
	BEGIN {
		say "+{";
	}
		say "q{$1} => $3," while /\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g;
	END {
		say "}";
	}
'