say sum map {($_%%3+$_%%5)*4||.chars},words