big {
  var %BIG-len.up = 0
  var %BIG-chars.out.up = 0
  while (%BIG-len.up < $len($1-)) {
    inc %BIG-len.up
    set %BIG-chars.asc $asc($mid($lower($1-),%BIG-len.up,1))
    while (%BIG-chars.out.up < 5) {
      inc %BIG-chars.out.up
      set $+(%,BIG-chars.out,%BIG-chars.out.up) $($+(%,BIG-chars.out,%BIG-chars.out.up),3) $($readini(big.ini,letters,%BIG-chars.asc $+ - $+ %BIG-chars.out.up),2)
    }
  }
  echo -a 1. %BIG-chars.out1
  echo -a 2. %BIG-chars.out2
  echo -a 3. %BIG-chars.out3
  echo -a 4. %BIG-chars.out4
  echo -a 5. %BIG-chars.out5
  unset %BIG*
}