alias .la {
  var %ş 1,%h $1-,%n,%t
  while (%ş <= $len(%h)) {
    if ($right($left(%h,%ş),1) == $chr(32)) { .set %n $+(%n,.) | set %t 1 }
    elseif (%t == 2) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) { .set %n $+(%n,.) | set %t 3 }
    elseif (%t == 1) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) && ($right($left(%h,%ş),1) != ) { .set %n $+(%n,.) | set %t 2 }
    else { .set %n $+(%n,$right($left(%h,%ş),1)) }
    inc %ş  
  }
  return %n
}