(@v[0..3],$n)=glob<>; @a=($v[0],0,0,0); $n=$n%88if$n>88; for$i(0..$n-1){ $a[$i+1&3]+=$a[$i&3],$a[$i&3]=0; $a[$i&3]=$a[$i+1&3]-$v[$i+1&3],$a[$i+1&3]=$v[$i+1&3]if$a[$i+1&3]>$v[$i+1&3]; } print"@a";