perl -e 'printf("%0.0f\n", 3537 * 19 / 119)'