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