Why I'm Tcl-Ish(colin-macleod.blogspot.com)

    a = print
    a("Hello World")

    fn puts(s: &str) {
        println!("{}", s);
    }
    
    let a = puts;
    a("Hello World");

    #include <cstdio>

    auto a = puts;
    a("Hello World");

    a=echo
    $a Hello World

   set a "puts"
   $a "Hello World".

  % interp alias {} = {} expr
  =
  % set x [= 2 + 3]
  5

  % interp alias {} @ {} lindex
  % set a {1 2 3}
  1 2 3
  % @ $a 1
  2

  # Fix terminal row/col height for less, vi, etc
  # type Ctrl-t r
  bind[r] = {
    # depends on xterm size info, may not be universal
    send "\{ "
    send {old=$(stty -g);}
    send {stty raw -echo min 0 time 5;}
    send {printf '\033[18t' > /dev/tty;}
    send {IFS=';t' read -r _ rows cols _ < /dev/tty;}
    send {stty "$old";}
    send {stty cols "$cols" rows "$rows";}
    send {unset old cols rows;}
    send {shopt -s checkwinsize;}
    send {clear;}
    send " \}\r"
  }

  spawn -open [open /dev/ttyUSB0 w+]
  interact {
      `u {send "uname\n"}
      `v {send "show-version\n"}
      `` exit
      # lots more
  }

  set h [open "filename.bin" r]
  fconfigure $h -encoding binary -translation binary
  set data [read $h]