I smash keys randomly and perl does useful things. For various values of useful. I also fiddle with C and other things. For whatever that's worth to you. Here's a lovely example of my madness:

$q="icanon 2>&1";for(@c=split//,join'',<>;$_=$c[$p],/./s;$p++){/>/&&$i++;/</
&&$i--;/]/&&($p=pop@s)--;/\[/&&($m[$i]?push@s,$p:do{for(;$x+=/\[/;){$_=$c[++
$p];$x-=/]/}});/,/&&(`stty -$q`,$m[$i]=ord getc,`stty $q`);/\./&&print chr$m
[$i];/\+/&&$m[$i]++;/-/&&$m[$i]--} #/#/# (C)2006-2019 pegasus@pimpninjas.org