#!/sw/bin/expect

spawn a+

interact {
    -re "\033a" {send "\301"}
    -re "\033b" {send "\302"}
    -re "\033c" {send "\303"}
    -re "\033d" {send "\304"}
    -re "\033e" {send "\305"}
    -re "\033f" {send "\137"}
    -re "\033g" {send "\307"}
    -re "\033h" {send "\310"}
    -re "\033i" {send "\311"}
    -re "\033j" {send "\312"}
    -re "\033k" {send "\047"}
    -re "\033l" {send "\314"}
    -re "\033m" {send "\174"}
    -re "\033n" {send "\316"}
    -re "\033o" {send "\317"}
    -re "\033p" {send "\052"}
    -re "\033q" {send "\077"}
    -re "\033r" {send "\322"}
    -re "\033s" {send "\323"}
    -re "\033t" {send "\176"}
    -re "\033u" {send "\325"}
    -re "\033v" {send "\326"}
    -re "\033w" {send "\327"}
    -re "\033x" {send "\330"}
    -re "\033y" {send "\331"}
    -re "\033z" {send "\332"}
    -re "\0331" {send "\241"}
    -re "\0332" {send "\242"}
    -re "\0333" {send "\074"}
    -re "\0334" {send "\244"}
    -re "\0335" {send "\075"}
    -re "\0336" {send "\246"}
    -re "\0337" {send "\076"}
    -re "\0338" {send "\250"}
    -re "\0339" {send "\251"}
    -re "\0330" {send "\136"}
    -re "\033-" {send "\253"}
    -re "\033=" {send "\337"}
    -re "\033\\\\" {send "\334"}
    -re "\033\\`" {send "\376"}
    -re "\033\\," {send "\254"}
    -re "\033\\~" {send "\176"}
    -re "\033\\?" {send "\077"}
    -re "\033\\\[" {send "\373"}
    -re "\033\\\]" {send "\375"}
    -re "\033\\;" {send "\333"}
    -re "\033\\'" {send "\335"}
    -re "\033\\." {send "\334"}
    -re "\033\\/" {send "\257"}
    -re "\033\\!" {send "\340"}
    -re "\033\\@" {send "\346"}
    -re "\033\\#" {send "\347"}
    -re "\033\\$" {send "\350"}
    -re "\033\\%" {send "\367"}
    -re "\033\\^" {send "\364"}
    -re "\033\\&" {send "\341"}
    -re "\033\\*" {send "\360"}
    -re "\033\\(" {send "\271"}
    -re "\033\\)" {send "\260"}
    -re "\033\\_" {send "\041"}
    -re "\033\\+" {send "\255"}
    -re "\033\\|" {send "\374"}
    -re "\033\\\{" {send "\335"}
    -re "\033\\\}" {send "\333"}
    -re "\033:" {send "\274"}
    -re "\033\"" {send "\273"}
    -re "\033>" {send "\256"}
    -re "\033<" {send "\074"}
    -re "\033W" {send "\127"}
    -re "\033R" {send "\122"}
    -re "\033T" {send "\124"}
    -re "\033U" {send "\125"}
    -re "\033A" {send "\101"}
    -re "\033D" {send "\104"}
    -re "\033K" {send "\113"}
    -re "\033X" {send "\130"}
    -re "\033V" {send "\126"}
    -re "\033O" {send "\357"}
    -re "\033J" {send "\352"}
    -re "\033F" {send "\275"}
    -re "\033E" {send "\345"}
    -re "\033I" {send "\351"}
    -re "\033S" {send "\276"}
    -re "\033G" {send "\347"}
    -re "\033H" {send "\350"}
    -re "\033L" {send "\354"}
    -re "\033C" {send "\343"}
    -re "\033B" {send "\342"}
    -re "\033N" {send "\356"}
    -re "\033M" {send "\315"}
    -re "\033P" {send "\263"}
    -re "\033Y" {send "\264"}
    -re "\033Z" {send "\372"}
    -re "\033Q" {send "\277"}
    -re "\033(.)" { send $interact_out(1,string) }
}