Language ->
Arg Lang_code : &String, Language : String

Lang_code = `WS_LANG_CODE

Lang_code <- String STR_LOWER_CASE
[ String._ = 2 ]
' String <- Language # 1 Delimeter_position
[ Delimeter_position > 0 ]
' Delimeter_position <- Language '-'

/