[PHP-CLI] Infinite unrepetitive song

<?php
$ins = ["bass guitar","violin","piano","guitar","saxophone","drums"];
$adj = str_replace(["\r","\n"," "],"",file("adjectives.txt"));
$adv = str_replace(["\r","\n"," "],"",file("adverbs.txt"));
$vrb = str_replace(["\r","\n"," "],"",file("verbs.txt"));
$nns = str_replace(["\r","\n"," "],"",file("nouns.txt"));

            $num = 4;

            print "(1) 4/4 : ".rom(floor(7*abs(sin(4*cardiv(4)+1)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv(4)+2)))).", ";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }
                print rom(floor(7*abs(sin(4*cardiv(4)+3)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv(4)+4))))."\n";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }

        for ($k = 1; $k <= 3; $k++) {

            print lol(1,4,4).rom(floor(7*abs(sin(4*cardiv(4)+1)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv(4)+2)))).", ";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }
                print rom(floor(7*abs(sin(4*cardiv(4)+3)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv(4)+4))))."\n";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }

        }
        print "\n";

function lol($m,$n,$o) {
    $str = " ";
    for ($i = 1; $i <= strlen(strval($m))+strlen(strval($n))+strlen(strval($o)); $i++) {
        $str .= " ";
    }
    $str .= "     ";
    $str .= " ";
    return $str;
}
function rom($n) {
    if ($n == 0) { return "Do"; }
    if ($n == 1) { return "Si bémol"; }
    if ($n == 2) { return "La bémol"; }
    if ($n == 3) { return "Sol"; }
    if ($n == 4) { return "Fa"; }
    if ($n == 5) { return "Mi bémol"; }
    if ($n == 6) { return "Ré"; }
}
function is_prime($n) {
    $s = 0;
    for ($i = 1; $i <= floor(sqrt($n)); $i++) {
        $s += floor($n/$i)-floor(($n-1)/$i);
    }
    if ($s == 1 && $n != 1) { return true; }
    else { return false; }
}
function prime_counting($n) {
    $s = 0;
    for ($i = 1; $i <= $n; $i++) {
        if (is_prime($i)) { $s++; }
    }
    return $s;
}
function prime($n) {
    for ($i = $n; $i > 0; $i--) {
        if (is_prime($i)) { return $i; $i = -1; }
    }
}
function cardiv($n) {
    $s = 0;
    for ($i = 1; $i <= $n; $i++) {
        if ($n % $i == 0) { $s++; }
    }
    return $s;
}
for ($i = 2; $i <= 50; $i++) {
    if (log((cardiv(prime_counting($i))%13)+3)/log(2) != floor(log((cardiv(prime_counting($i))%13)+3)/log(2))) {
        print "($i) ".((cardiv(prime_counting($i))%13)+3)."/".(2**(prime(prime_counting($i))%3+1))." : ";
        $num = (cardiv(prime_counting($i))%13)+3;
        $denom = 2**(prime(prime_counting($i))%3+1);
    } else {
        print "($i) 4/4 : ";
        $num = 4;
        $denom = 4;
    }
    if ($i % 2 == 0 && $i > 3) {
        print rom(floor(7*abs(sin(4*cardiv($i)+1)))).", ";
        for ($j = 1; $j <= ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+2)))).", ";
        for ($j = 1; $j <= $num-ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+3)))).", ";
        for ($j = 1; $j <= ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+4))))."\n";
        for ($j = 1; $j <= $num-ceil($num/2); $j++) {
            sleep(1);
        }
        print lol($i,$num,$denom).rom(floor(7*abs(sin(4*cardiv($i)+1)))).", ";
        for ($j = 1; $j <= ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+2)))).", ";
        for ($j = 1; $j <= $num-ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+3)))).", ";
        for ($j = 1; $j <= ceil($num/2); $j++) {
            sleep(1);
        }
        print rom(floor(7*abs(sin(4*cardiv($i)+4))))."\n\n";
        for ($j = 1; $j <= $num-ceil($num/2); $j++) {
            sleep(1);
        }
    }
    if (is_prime($i)) {

        print rom(floor(7*abs(sin(4*$i+1)))).", ".rom(floor(7*abs(sin(4*$i+2)))).", ".rom(floor(7*abs(sin(4*$i+3)))).", ".rom(floor(7*abs(sin(4*$i+4))))."\n";

        print "\n   ".$adj[abs(sin(2*$i+exp($i)))*count($adj)]." ";
        sleep(1);
        print $nns[abs(sin(2*$i+exp($i)))*count($nns)]." ";
        sleep(1);
        print $vrb[abs(sin(2*$i+exp($i)))*count($vrb)]."\n";
        for ($j = 3; $j <= ceil(3/$num)*$num; $j++) {
            sleep(1);
        }

        print " ".$adv[abs(sin(2*$i+2*exp($i)))*count($adv)];
        sleep(1);
        print " ".$vrb[abs(sin(2*$i+2*exp($i)))*count($vrb)]."\n";
        sleep(1);
        for ($j = 3; $j <= ceil(3/$num)*$num; $j++) {
            sleep(1);
        }

        print " ".$adj[abs(cos(2*$i+exp($i)))*count($adj)];
        sleep(1);
        print " ".$nns[abs(cos(2*$i+exp($i)))*count($nns)];
        sleep(1);
        print " ".$adv[abs(cos(2*$i+exp($i)))*count($adv)]."\n";
        sleep(1);
        for ($j = 4; $j <= ceil(4/$num)*$num; $j++) {
            sleep(1);
        }

        print " ".$adv[abs(cos(2*$i+2*exp($i)))*count($adv)];
        sleep(1);
        print " ".$vrb[abs(cos(2*$i+2*exp($i)))*count($vrb)]."\n\n";
        sleep(1);
        for ($j = 3; $j <= ceil(3/$num)*$num; $j++) {
            sleep(1);
        }

    }
    if (!is_prime($i) && $i % 2 == 1) { //i don't get why the green part doesn't work lol
        print " (".$ins[floor(count($ins)*abs(sin($solo)))]." solo)\n";
        /*for ($k = 1; $k <= 4*floor(count($ins)*abs(sin($solo))); $k++) {

            print lol($i,$num,$denom).rom(floor(7*abs(sin(4*cardiv($i)+1)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv($i)+2)))).", ";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }
                print rom(floor(7*abs(sin(4*cardiv($i)+3)))).", ";
            for ($j = 1; $j <= ceil($num/2); $j++) {
                sleep(1);
            }
            print rom(floor(7*abs(sin(4*cardiv($i)+4))))."\n\n";
            for ($j = 1; $j <= $num-ceil($num/2); $j++) {
                sleep(1);
            }

        }*/
        sleep(4);
        //that's what replaces it for now lol
        $solo++;
    }
}
echo `pause>nul`;
?>