#!/usr/bin/perl

sub tab { '{TAB}' x (@_ ? shift: 1); }
sub rt { '{RETURN}'; }
sub down { '{DOWN}'; }
sub f { '%{F}'; }
sub op { '%{O}'; }
sub ex { '%{E}'; }

1;