sub tan
my ($x, $d) = @_;
return $t / $d;