diff --git a/resources/purescript.ascii b/resources/purescript.ascii
new file mode 100644
index 000000000..789e48958
--- /dev/null
+++ b/resources/purescript.ascii
@@ -0,0 +1,11 @@
+
+
+
+             \\\\\\\\\\\\\\    \\\\\
+              \\\\\\\\\\\\\\     \\\\\
+      /////                        \\\\\
+    /////      //////////////      /////
+  /////       //////////////     /////
+  \\\\\                        /////
+    \\\\\     \\\\\\\\\\\\\\
+      \\\\\    \\\\\\\\\\\\\\
diff --git a/resources/tcl.ascii b/resources/tcl.ascii
new file mode 100644
index 000000000..6e0d40c29
--- /dev/null
+++ b/resources/tcl.ascii
@@ -0,0 +1,19 @@
+
+{0}                   //           
+{2}               . /{0}////           
+{2}              /{0}/////// .           
+{2}              //{0}//{1}/{0}/////           
+{2}             //{0}//{1}/{0}/////           
+{2}           . //{0}/{1}//{0}////           
+{2}           //{0}//{1}//{0}////           
+{2}           //{0}/{1}//{0}/////           
+{2}           /{0}//{1}//{0}////            
+{2}           /{0}/{1}//{0}////  .           
+{2}         . /{0}/{1}//{0}/////           
+{2}          /{0}/{1}//{0}////           
+{2}           /{1}//{0}//           
+{0}            {1}//           
+{0}            {1}//           
+{0}             {1}/           
+{0}              {1}/           
+
diff --git a/src/main.rs b/src/main.rs
index 8467454bc..5990cd9aa 100644
--- a/src/main.rs
+++ b/src/main.rs
@@ -279,6 +279,7 @@ enum Language {
     Lua,
     Nim,
     ObjectiveC,
+    PureScript,
     Python,
     R,
     Ruby,
@@ -286,6 +287,7 @@ enum Language {
     Scala,
     Shell,
     Swift,
+    Tcl,
     TypeScript,
     JavaScript,
     Perl,
@@ -313,6 +315,7 @@ impl fmt::Display for Language {
             Language::Lua => write!(f, "Lua"),
             Language::Nim => write!(f, "Nim"),
             Language::ObjectiveC => write!(f, "Objective-C"),
+            Language::PureScript => write!(f, "PureScript"),
             Language::Python => write!(f, "Python"),
             Language::R => write!(f, "R"),
             Language::Ruby => write!(f, "Ruby"),
@@ -320,6 +323,7 @@ impl fmt::Display for Language {
             Language::Scala => write!(f, "Scala"),
             Language::Shell => write!(f, "Shell"),
             Language::Swift => write!(f, "Swift"),
+            Language::Tcl => write!(f, "Tcl"),
             Language::TypeScript => write!(f, "TypeScript"),
             Language::JavaScript => write!(f, "JavaScript"),
             Language::Perl => write!(f, "Perl"),
@@ -691,6 +695,7 @@ impl From<tokei::LanguageType> for Language {
             tokei::LanguageType::Lua => Language::Lua,
             tokei::LanguageType::Nim => Language::Nim,
             tokei::LanguageType::ObjectiveC => Language::ObjectiveC,
+            tokei::LanguageType::PureScript => Language::PureScript,
             tokei::LanguageType::Python => Language::Python,
             tokei::LanguageType::R => Language::R,
             tokei::LanguageType::Ruby => Language::Ruby,
@@ -698,6 +703,7 @@ impl From<tokei::LanguageType> for Language {
             tokei::LanguageType::Scala => Language::Scala,
             tokei::LanguageType::Sh => Language::Shell,
             tokei::LanguageType::Swift => Language::Swift,
+            tokei::LanguageType::Tcl => Language::Tcl,
             tokei::LanguageType::TypeScript => Language::TypeScript,
             tokei::LanguageType::JavaScript => Language::JavaScript,
             tokei::LanguageType::Perl => Language::Perl,
@@ -727,6 +733,7 @@ fn get_all_language_types() -> Vec<tokei::LanguageType> {
         tokei::LanguageType::Lua,
         tokei::LanguageType::Nim,
         tokei::LanguageType::ObjectiveC,
+        tokei::LanguageType::PureScript,
         tokei::LanguageType::Python,
         tokei::LanguageType::R,
         tokei::LanguageType::Ruby,
@@ -734,6 +741,7 @@ fn get_all_language_types() -> Vec<tokei::LanguageType> {
         tokei::LanguageType::Scala,
         tokei::LanguageType::Sh,
         tokei::LanguageType::Swift,
+        tokei::LanguageType::Tcl,
         tokei::LanguageType::TypeScript,
         tokei::LanguageType::JavaScript,
         tokei::LanguageType::Perl,
@@ -762,6 +770,7 @@ impl Info {
             Language::Lua => include_str!("../resources/lua.ascii"),
             Language::Nim => include_str!("../resources/nim.ascii"),
             Language::ObjectiveC => include_str!("../resources/objectivec.ascii"),
+            Language::PureScript => include_str!("../resources/purescript.ascii"),
             Language::Python => include_str!("../resources/python.ascii"),
             Language::R => include_str!("../resources/r.ascii"),
             Language::Ruby => include_str!("../resources/ruby.ascii"),
@@ -769,6 +778,7 @@ impl Info {
             Language::Scala => include_str!("../resources/scala.ascii"),
             Language::Shell => include_str!("../resources/shell.ascii"),
             Language::Swift => include_str!("../resources/swift.ascii"),
+            Language::Tcl => include_str!("../resources/tcl.ascii"),
             Language::TypeScript => include_str!("../resources/typescript.ascii"),
             Language::JavaScript => include_str!("../resources/javascript.ascii"),
             Language::Perl => include_str!("../resources/perl.ascii"),
@@ -797,6 +807,7 @@ impl Info {
             Language::Lua => vec![Color::Blue],
             Language::Nim => vec![Color::Yellow, Color::BrightWhite],
             Language::ObjectiveC => vec![Color::BrightBlue, Color::Blue],
+            Language::PureScript => vec![Color::White],
             Language::Python => vec![Color::Blue, Color::Yellow],
             Language::R => vec![Color::White, Color::Blue],
             Language::Ruby => vec![Color::Magenta],
@@ -804,6 +815,7 @@ impl Info {
             Language::Scala => vec![Color::Blue],
             Language::Shell => vec![Color::Green],
             Language::Swift => vec![Color::BrightRed],
+            Language::Tcl => vec![Color::Blue, Color::White, Color::BrightBlue],
             Language::TypeScript => vec![Color::Cyan],
             Language::JavaScript => vec![Color::BrightYellow],
             Language::Perl => vec![Color::BrightBlue],