for(1..100){$a+=$_%10?400:36400;}