slow code

ウィキペディアから