proc.hs

#!/usr/local/bin/stack runghc
import           Data.Char (toUpper)
import           Data.List (uncons)

ucFirst :: String -> String
ucFirst = maybe "" (\(a,b) -> toUpper a : b) . uncons

process :: String -> [String]
process s =
    let slug = mconcat $ map ucFirst $ words s
    in [ "<dt runat=\"server\" id=\"dt" ++ slug ++ "\">" ++ s ++ "</dt>"
       , "<dd runat=\"server\" id=\"dd" ++ slug ++ "\"></dd>", ""]

main :: IO ()
main = do
    input <- getContents
    mapM_ putStrLn $ (process =<<) $ lines input

to match the example, you'd want toUpper a : map toLower b in ucFirst, since it changes "VRI" to "Vri".

or ucFirst = zipWith ($) (toUpper : repeat toLower)