(f <> g) x == (mappend . f <*> g) x
main=do x<-readFile __FILE__;print$length x`gcd`3 --
(>>=)
a.hs
12
a
.hs
ghc
./a