A sample program written with f-sharp