let putStrLn (x: string) = io { return stdout.WriteLine (x) }

putStrLn "test io" |> IO.run