for(1..<>){
    ($a,$b)=<>=~/\d+/g;
    sprintf("%e",$a**$b)=~/(.).(.).*(..)/;
    $z=$3+0;
    print"$1 $2 $z\n";
}