Assert with Message

let assert_with_message cond msg =
    if not cond then
        failwith msg
    else
        ();;