let append_string app_str str = 
  concat [str;app_str]