alias getln {
  var %n = 1
  while  %n < $lines($1) {  
var %r = $read($1,%n) 
    if $len(%r) == $2 {
      echo :: %n =  %r
    }
    inc %n  
  }
}