let 馬鈴薯の f = f "はたらけど" let うす紫の x f = f (x + " はたらけど猶") let 花に降る x f = f (x + " わが生活（くらし）") let 雨を思へり x y = x + " 楽にならざり" + y let 都の雨に = " ぢっと手を見る" let 石川啄木 _ = printfn "%s" [<STAThread>] do </stathread>…