perl -le'$N=pop;@a=$N-5..$N;$"="*";print"@a/720"' 8|bc