#! /usr/bin/perl -w
use Math::Complex;

$zxa=abs(1+(-exp(1)**(i*pi))-(exp((sqrt(9)/3)-sqrt(1))));$xza="vppnabovs";$axz=$zxa-((-exp(1)**(i*pi))**(-exp(1)**(i*pi)));$xza=~tr{s\\\r\n\b\f}{S};$azx=(1*(10**(int(pi-($zxa*2)))));push@zax,$axz;push@zax,$zxa;$xza =~ tr/A-Za-z/N-ZA-Mn-za-m/;while ($xza=~s/^(.)//){unshift @xaz, $1;}for ($xaz=1;$xaz<=$azx;++$xaz){$zax=$axz+$zxa;push@zax,$zax;$axz=$zxa;$zxa=$zax;}print"\n".(join"",@xaz).":\n".(join" ",@zax)."\n\n";