diff --git a/src/Text.mo b/src/Text.mo
index 8905ebe5..e0bd4ae5 100644
--- a/src/Text.mo
+++ b/src/Text.mo
@@ -23,6 +23,7 @@
 import Char "Char";
 import Iter "Iter";
 import Hash "Hash";
+import List "List";
 import Stack "Stack";
 import Prim "mo:⛔";
 
@@ -139,6 +140,34 @@ module {
     return r
   };
 
+  /// Create a text from a character list.
+  /// Example:
+  /// ```motoko include=initialize
+  /// fromList(?('H', ?('e', ?('l', ?('l', ?('o', null))))));
+  /// // => "Hello"
+  /// ```
+  ///
+  /// Runtime: O(size cs)
+  /// Space: O(size cs)
+  public func fromList(cs : List.List<Char>) : Text = fromIter(List.toIter cs);
+
+  /// Create a character list from a text.
+  /// Example:
+  /// ```motoko include=initialize
+  /// toList("Hello");
+  /// // => ?('H', ?('e', ?('l', ?('l', ?('o', null)))))
+  /// ```
+  ///
+  /// Runtime: O(t.size())
+  /// Space: O(t.size())
+  public func toList(t : Text) : List.List<Char> {
+    var acc : List.List<Char> = null;
+    for (c in t.chars()) {
+        acc := ?(c, acc)
+    };
+    List.reverse acc
+  };
+
   /// Returns the number of characters in the given `Text`.
   ///
   /// Equivalent to calling `t.size()` where `t` is a `Text` value.