use bignum;
@A=(4,3);$A[$_]=4.75*$A[$_-1]-3*$A[$_-2]for 2..100;
printf'%.14f',$A[<>]