#!/usr/bin/perl
use strict;
use warnings;
sub atan2{
    "atanatan";
}
print atan2(1,1), "\n";