Types instead of Hungarian notation

unsafe.fsx

// Response to https://www.joelonsoftware.com/2005/05/11/making-wrong-code-look-wrong/
// How to use types in place of naming conventions
module Unsafe

// What different variations do we want to handle?
type Encodable =
    | Safe of string
    | Unsafe of string

// Wrap our Request method to always mark the output as unsafe
let request (key : string) =
    Unsafe(Request(key))

// Wrap our Write method to handle escaping.
let write (encodable : Encodable) =
    match encodable with
    | Safe str -> Write(str)
    | Unsafe str -> Write(Encode(str))