http_tcp_listener.fs

open System
open System.Net
open System.Net.Sockets
open System.Text
open System.IO

let listen port =
    let listener = new TcpListener(IPAddress.Any, port)
    listener.Start()
    let client = listener.AcceptTcpClient()
    use stream = client.GetStream()
        
    let mutable continueRead = true
    while continueRead do            
        let buffer = Array.zeroCreate 1024
        let read = stream.Read(buffer, 0, 1024)
        let text = Encoding.ASCII.GetString(buffer, 0, read)            
        printf "%s" text
        continueRead <- stream.DataAvailable 
    
    
    let responseString = "Hello world!"
    let buffer = Encoding.ASCII.GetBytes(responseString)
    
    stream.Write(buffer, 0, buffer.Length)    
    listener.Stop()                    

do listen 1201