#!/usr/bin/perl -w
use strict;

$_='073100061219051813072308
';$\=$/;$/=$";$"='**';$$
='$/ x --$_[1],$" x
++$_[2]';for($:
='(..)'x3;s;$:;;;$$
=~y=+-=-+=){@_=($1,$2,$3
);print eval$$ while$_[0]--}