//Title: Simple Capitalisation
//Credit to: Jtgibson
//Contributed by: Jtgibson


//A very simplistic capitalisation snippet.


proc/capitalise(T)
    if(length(T) > 1)
        return "[uppertext(copytext(T,1,2))][copytext(T,2)]"
    else
        return uppertext(T)


proc/capitalize(T) return capitalise(T)