isPrime n
| n
>= 2 = null [ x
| x
<- [2..root
], n `
mod` x
== 0 ]
aXNQcmltZSBuCiAgICB8IG4gPj0gMiA9IG51bGwgWyB4IHwgeCA8LSBbMi4ucm9vdF0sIG4gYG1vZGAgeCA9PSAwIF0KICAgIHwgb3RoZXJ3aXNlID0gZXJyb3IgIld1dD8iCiAgICAgICAgd2hlcmUgcm9vdCA9IGNlaWxpbmcgJCBzcXJ0ICQgZnJvbUludGVncmFsIG4=