Code:
alias saveb64 {
  bset -t &b 1 $1
  var %file = $qt($$2-)
  if ($decode(&b,mb)) {
    bwrite %file -1 -1 &b
  }
}