http://projecteuler.net/index.php?section=problems&id=73

Problem 71とほぼ同じ 

import Data.List
p073 d' =foldl1' (+) [1|d<-[4..d'],n<-[d`div`3+1..d`div`2],gcd n d==1]
main = print.p073$10^4