alias countcode {
  var %i = 1, %code, %line
  while (%i <= $lines($1)) {
    %line = $read($1,n,%i)
    if (%line) %code = $calc(%code + $len(%line))
    inc %i
  }
  echo -a * $1 = %code bytes
}