#!/usr/bin/perl

open(I,"xmodmap -pk |") || die "popen xmodmap -pk: $!\n";

while(<I>) {
    m/^\s+(\d+)\s+\w+\s+\((\w+)\)\s+\w+\s+\((\w+)\)\s+\w+\s+\(/
        || next;
    if ($3 eq 'NoSymbol') {
        print "keycode $1 = $2\n";
    } else {
        print "keycode $1 = $2 $3\n";
    }
}

print <<'END'
keycode 38 = Delete
keycode 37 = Delete
keycode 64 = Up
keycode 80 = Left
keycode 82 = Right
keycode 99 = Down
keycode 40 = F27
keycode 41 = F29
keycode 61 = F33
keycode 62 = F35
keycode 63 = F27 
keycode 65 = F29
keycode 81 = F31
keycode 98 = F33
keycode 100 = F35
END
    ;