【修正後1】 236 バイト

s n=show n++take(n*2+9)" shinichiroes"++" of hamaji"
w n=s n++" on the wall"
a#b=a++", "++b++".\n"
f 1="Go to the store and buy some more"#w 99
f x="Take one down and pass it around"#w(x-1)
main=mapM putStrLn[w n#s n++f n|n<-[99,98..1]]

es の複数形をどうするかで箸が止まっているような状態だったが、
takeを使って　ようやく縮められた。