第一份PHP程序

<?php

    list($ncase) = fscanf(STDIN,"%d");

    $mod = 1000000007;

    for($n=0;$n<$ncase;++$n) {

        $x = 0;

        $od = 1;

        $ev = 0;

        list($str) = fscanf(STDIN,"%s");

        $len = strlen($str);

        $two = 1;

        $l = 0;

        $ans = 1;

        for($level=0;$level<$len;++$level) {

            $two = $two<<1;

            if ( $two>=$mod )

                $two -= $mod;

            if ( $str[$level]=="l" )

                $l = $l<<1;

            else

                $l = ($l<<1) | 1;

            if ( $l>=$mod )

                $l -= $mod;

            if ( $level & 1 ) {

            	$ans = (($od+1)<<1)+($l<<1)-1;

                $od += $two;

                if ( $od>=$mod )

                	$od -= $mod;

            } else {

            	$ans = (($ev+1)<<1)+($l<<1);

                $ev += $two;

                if ( $ev>=$mod )

                	$ev -= $mod;

            }

            if ( $ans>=$mod )

                $ans -= $mod;

        }

        fprintf(STDOUT, "%d\n",$ans%$mod);

    }

?>