rTimeStampToRText "YYYYMM" ts =                 let 
                                                    timeString = expand (year ts) ++ expand (month ts) 
                                                    expand i = if i < 10 then "0"++ (show i) else show i
                                                in RText $ T.pack timeString
rTimeStampToRText "YYYYMM" ts =                 let 
                                                    timeString = expand (year ts) ++ expand (month ts) 
                                                    expand i = if i < 10 then "0"++ (show i) else show i
                                                in RText $ T.pack timeString
rTimeStampToRText "YYYYMM" ts =                 let 
                                                    timeString = expand (year ts) ++ expand (month ts) 
                                                    expand i = if i < 10 then "0"++ (show i) else show i
                                                in RText $ T.pack timeString