concrete orderNumSwe of orderNum = {

lincat
OrderNumber = {s : Str};

pattern
first = "första" ;
second = "andra" ;
third = "tredje" ;
fourth = "fjärde" ;
fifth = "femte" ;
sixth = "sjätte" ;
seventh = "sjunde" ;
eighth = "åttonde" ;
ninth = "nionde" ; 
tenth = "tionde" ;

--anOrder = "ORDERNUMBER"; 

}