#!/usr/local/bin/perl

$degrees = <STDIN>;
chop ($degrees);
$radians = $degrees * atan2(1,1) / 45;
$sin = sin ($radians);
$cos = cos ($radians);
print ("sin of $degrees is ", $sin, "\n");
print ("cos of $degrees is ", $cos, "\n");
print ("tan of $degrees is ", $sin/$cos, "\n");
