【初稿】 117バイト

s=show
f n|mod n 6>4=s(div(n+1)6)++" - 1"|1>0=s(div(n-1)6)++" + 1"
m@main=do n<-readLn;putStrLn$s n++" = 6 * "++f n;m

もはや、ゴルフにはなっていないかも。。。
お得意の(教えてもらった)コースをはずれると、全く戦えてない

【修正1】 112バイト

s=shows
f n|mod n 6>4=s(div(n+1)6)" - 1"|1>0=s(div(n-1)6)" + 1"
m@main=do n<-readLn;putStrLn$s n" = 6 * "++f n;m

【初稿】 154バイト

import Text.Printf
f::Int->Double
f n=1-(product$map(\x->1-x/365)[1..fromIntegral$n-1])
main=mapM(s(printf"n=%d, p=%.8f\n")f)[2..100]where s f g x=f x$g x

だめだ。。。
拾い乞食した上に、これが限界。

何が難しかったかというと、リストは１つのデータなのに、printfに２つのデータを出させる所。。。 

【初稿】 113バイト

g[x]=x
g(x:y:s)|x!!0==last y=g((y++tail x):s)|y!!0==last x=g((x++tail y):s)|1>0=g(x:s++[y])
main=interact$g.lines

家帰ってから、投稿記録見て焦った。。。
４０近く縮めなければならないとは。

【修正1】 110バイト

x%y=x!!0==last y
x!y=x++tail y
g[x]=x
g(x:y:s)|x%y=g(y!x:s)|y%x=g(x!y:s)|1>0=g(x:s++[y])
main=interact$g.lines

果てしなく遠い

【初稿】 44バイト

main=interact$show.length.filter(/="").lines

【初稿】　31バイト

main=interact$show.length.lines

おそらく詰み。。。