set -n %temp $1-

  if (http isin %temp) {
    inc %x 
    while ( $matchtok(%temp,www,%x,32) ) { 
      echo -a  $matchtok(%temp,www,%x,32)
      ;set -n %temp $replace(%temp,$matchtok(%temp,www,%x,32),$tinyurl($matchtok(%temp,www,%x,32)) ) 
      inc %x
    }
  }

  if (www isin %temp) {
    inc %z
    while ( $matchtok(%temp,http,%z,32) ) { 
      echo -a $matchtok(%temp,http,%z,32)
      ;set -n %temp $replace(%temp,$matchtok(%temp,www,%z,32),$tinyurl($matchtok(%temp,www,%z,32)) 
      inc %z
    }

  }