<?php
$url="http://nytimes.com";
$ul=strlen($url);
for($j=0;$j<$ul;++$j){if($url[$j]=="/") {$sl++;$sli=$j+1;} if($sl==3) { $home=$j; }}
if($sl==2) {$home=$j; $sli=$home+1; $url=$url."/";}
$a=file_get_contents($url,NULL,NULL,0,100000);
$s=microtime();
$l=strlen($a);
$u=array(); 
$c=0;
for($i=0;$i<$l;++$i){
    if($a[$i]=="<" && ((($a[$i+1]=="a" || $a[$i+1]=="A") && $a[$i+2]==" ") 
                    || (($a[$i+1]=="f" || $a[$i+1]=="F") && ($a[$i+2]=="r" || $a[$i+2]=="R") && ($a[$i+3]=="a" || $a[$i+3]=="A") && ($a[$i+4]=="m" || $a[$i+4]=="M") && ($a[$i+5]=="e" || $a[$i+5]=="E") && ($a[$i+6]==" "))
                    || (($a[$i+1]=="s" || $a[$i+1]=="S") && ($a[$i+2]=="c" || $a[$i+2]=="C"))))
    {$b=0;
     if($a[$i+1]=="a" || $a[$i+1]=="A")$i=$i+3; 
     else if($a[$i+1]=="f" || $a[$i+1]=="F") $i=$i+7;
     else {$i=$i+8;
           $d=$l-$i;
           for($j=0;$j<$d;++$j){if($a[$i+$j]=="<" && $a[$i+$j+1]=="/" && ($a[$i+$j+2]=="s" || $a[$i+$j+2]=="S") && ($a[$i+$j+3]=="c" || $a[$i+$j+2]=="C")){
                                $b=1;break;}}
          }
    if($b!=1){
    $d=$l-$i; 
    $f=0; $n=0;
    for($j=0;$j<$d;++$j){
    if($a[$i+$j]=="<" || (($a[$i+$j]=="h" || $a[$i+$j]=="H") && ($a[$i+$j+1]=="r" || $a[$i+$j+1]=="R") && ($a[$i+$j+2]=="e" || $a[$i+$j+2]=="E") && ($a[$i+$j+3]=="f" || $a[$i+$j+3]=="F")) || (($a[$i+$j]=="s" || $a[$i+$j]=="S") && ($a[$i+$j+1]=="r" || $a[$i+$j+1]=="R") && ($a[$i+$j+2]=="c" || $a[$i+$j+2]=="C")))
    {if($a[$i+$j]=="h" || $a[$i+$j]=="H" )$j=$j+4;else if($a[$i+$j]=="s" || $a[$i+$j]=="S"){$j=$j+3;$n=1;}else $b=1;break;}}
    }
    if($b!=1){
    $i=$i+$j;    
    $d=$l-$i;
    for($j=0;$j<$d;++$j){
      if($a[$i+$j]=="<" || ($a[$i+$j]!="=" && $a[$i+$j]!=" ")){
        if($a[$i+$j]!="<"){
        $i=$i+$j;
        if($a[$i]=="'"){
          if($a[$i+7]==":" || $a[$i+11]==":"){$i=$i+9;$b=1;$j=0;break;}
          if($a[$i+1]=="/"){ if($a[$i+2]=="'") {$b=1;$j=0;break;} else $u[$c]=substr($url,0,$home);}
          else if($a[$i+5]!=":" && $a[$i+6]!=":"){$u[$c]=substr($url,0,$sli);}
          for($j=1;$j<201;++$j){ 
                if($a[$i+$j]!="<" && $a[$i+$j]!="'" && $a[$i+$j]!="#"){$u[$c]=$u[$c].$a[$i+$j]; if($a[$i+$j]==".")$k=$i+$j;}
                else {if($a[$i+$j]=="<"){if($j==1)$b=1;else $f=1;break;break;}else if(($a[$i+$j]=="'" || $a[$i+$j]=="#") && $j==1){$b=1;break;break;}else {$sl=$i+$j-$k;$i=$i+$j+1;break;}}}
                if($j==201){$f=1;break;}
                if($n!=1){ $d=$l-$i; for($j=0;$j<$d;++$j){if($a[$i+$j]=="<" ){$f=1;break;break;}else if($a[$i+$j]==">"){break;break;}}}
          }
        else if($a[$i]=='"'){
          if($a[$i+7]==":" || $a[$i+11]==":"){$i=$i+9;$b=1;$j=0;break;}
          if($a[$i+1]=="/"){ if($a[$i+2]=='"') {$b=1;$j=0;break;} else $u[$c]=substr($url,0,$home);}
          else if ($a[$i+5]!=":" && $a[$i+6]!=":"){$u[$c]=substr($url,0,$sli);}
          for($j=1;$j<201;++$j){
                if($a[$i+$j]!="<" && $a[$i+$j]!='"' && $a[$i+$j]!="#"){$u[$c]=$u[$c].$a[$i+$j];if($a[$i+$j]==".")$k=$i+$j;}      
                else {if($a[$i+$j]=="<"){if($j==1)$b=1;else $f=1;break;break;}else if(($a[$i+$j]=='"' || $a[$i+$j]=="#") && $j==1){$b=1;break;break;}else {$sl=$i+$j-$k;$i=$i+$j+1;break;}}}
                if($j==201){$f=1;break;}
                if($n!=1){ $d=$l-$i; for($j=0;$j<$d;++$j){if($a[$i+$j]=="<"){$f=1;break;break;}else if($a[$i+$j]==">"){break;break;}}}
          }
        else{
          if($a[$i+6]==":" || $a[$i+10]==":"){$i=$i+8;$b=1;$j=0;break;}
          if($a[$i]=="/"){ if($a[$i+1]==" " || $a[$i+1]==">") {$b=1;$j=0;break;} else $u[$c]=substr($url,0,$home);}
          else if($a[$i+4]!=":" && $a[$i+5]!=":"){$u[$c]=substr($url,0,$sli);}
          for($j=0;$j<200;++$j){
                if($a[$i+$j]!="<" && $a[$i+$j]!=" " && $a[$i+$j]!=">" && $a[$i+$j]!="#"){$u[$c]=$u[$c].$a[$i+$j];if($a[$i+$j]==".")$k=$i+$j;}      
                else {if($a[$i+$j]=="<"){$f=1;break;break;}else if(($a[$i+$j]==">" || $a[$i+$j]=="#") && $j==0){$b=1;break;break;}else {$sl=$i+$j-$k;$i=$i+$j+1;break;}}}
                if($j==200){$f=1;break;}
                if($n!=1){ $d=$l-$i; for($j=0;$j<$d;++$j){if($a[$i+$j]=="<"){$f=1;break;break;}else if($a[$i+$j]==">"){break;break;}}}
          }}else $b=1;break;
        }}}
       if($b==1) $i=$i+$j-1;
       if($b!=1){$de=0;
         if($f==1)$i=$i+$j-1; else $i=$i+$j+1;
         if($f!=1){$d=$l-$i;for($j=0;$j<$d;++$j){if($a[$i+$j]!=" "){if($a[$i+$j]=="<" && $de<2){$f=1;$i=$i+$j-1;break;}else if($de>1){break;}else ++$de;}}}           
         if($f==1)$u[$c]="";
         else if(($sl)==4){if(
               ($a[$k+1]=="m" && $a[$k+2]=="p" && ($a[$k+3]=="a" || $a[$k+3]=="g" || $a[$k+3]=="3" || $a[$k+3]=="4" || $a[$k+3]=="2" )) 
            || ($a[$k+1]=="p" && (($a[$k+2]=="n" && $a[$k+3]=="g") || ($a[$k+2]=="d" && $a[$k+3]=="f") || ($a[$k+2]=="p" && $a[$k+3]=="t")))
            || ($a[$k+1]=="x" && (($a[$k+2]=="a" && $a[$k+3]=="r") || ($a[$k+2]=="p" && $a[$k+3]=="i") || ($a[$k+2]=="l" && $a[$k+3]=="s")))
            || ($a[$k+1]=="d" && (($a[$k+2]=="o" && $a[$k+3]=="c") || ($a[$k+2]=="l" && $a[$k+3]=="l")))
            || ($a[$k+1]=="r" && (($a[$k+2]=="a" && $a[$k+3]=="r") || ($a[$k+2]=="a" && $a[$k+3]=="m")))
            || ($a[$k+1]=="c" && $a[$k+2]=="p" && $a[$k+3]=="p" )
            || ($a[$k+1]=="t" && $a[$k+2]=="x" && $a[$k+3]=="t" )
            || ($a[$k+1]=="j" && $a[$k+2]=="p" && $a[$k+3]=="g" )
            || ($a[$k+1]=="e" && $a[$k+2]=="x" && $a[$k+3]=="e" )
            || ($a[$k+1]=="a" && $a[$k+2]=="v" && $a[$k+3]=="i" )
            || ($a[$k+1]=="w" && $a[$k+2]=="m" && $a[$k+3]=="v" ) 
            || ($a[$k+1]=="z" && $a[$k+2]=="i" && $a[$k+3]=="p" )
            || ($a[$k+1]=="g" && $a[$k+2]=="i" && $a[$k+3]=="f" ))$u[$c]=""; else $c++;}
            else if(($sl)==5){if(($a[$k+1]=="j" || $a[$k+1]=="m") && $a[$k+2]=="p" && $a[$k+3]=="e" && $a[$k+4]=="g")$u[$c]=""; else $c++;}
            else if(($sl)==3){if($f==1 || ((($a[$k+1]=="p" || $a[$k+1]=="j") && $a[$k+2]=="s")) || ($a[$k+1]=="g" && $a[$k+2]=="z"))$u[$c]=""; else $c++;}
            else if(($sl)==2){if($f==1 || $a[$k+1]=="c")$u[$c]=""; else $c++;}
            else $c++;
            if($f!=1)$i=$i+$j-1;
           }}}           
 $j=0; while($j<=$c){echo $u[$j]; if($u[$j]!="" && $j!=$c)echo "<br />"; ++$j; }
 $e=microtime(); 
 echo $e-$s,"<br />";
?>