while(1){
    $a=1;
    while($a<1500){
        print "ACORDA ";
        #en: WAKEUP
        $a++;
    }
    print chr hex 7;
};