$n=<>; if($n==1){ print 2 }elsif($n%2){ print`dc -e'5 $n 2-2/O9^7+|12*O9^7+%p'` }else{ print`dc -e'5 $n 2-2/O9^7+|4*O9^7+%p'` }