diff --git a/README.md b/README.md
index 3429f0de..3ba1b79a 100755
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@ Thanks to everyone who continues to contribute; new languages are created every
 Make sure to see [CONTRIBUTING.md](/CONTRIBUTING.md) for instructions on contributing to the project!
 
 <!--Languages start-->
-## Languages (680 total)
+## Languages (681 total)
 
 * [05Ab1E](%23/05AB1E)
 * [0815](%23/0815.0815)
@@ -215,6 +215,7 @@ Make sure to see [CONTRIBUTING.md](/CONTRIBUTING.md) for instructions on contrib
 * [Delphi](d/delphi.delphi)
 * [Delphi](d/delphi.pas)
 * [Deno](d/deno.ts)
+* [Desmos](d/desmos.desmos)
 * [Dis](d/dis.dis)
 * [Divzeros](d/divzeros.dz)
 * [Dna#](d/DNA%23.dna)
diff --git a/d/desmos.desmos b/d/desmos.desmos
new file mode 100644
index 00000000..64b04ef8
--- /dev/null
+++ b/d/desmos.desmos
@@ -0,0 +1,17 @@
+x=0{0<y<4}
+x^2+y^2=4{0<x}{0<y}
+(x-3.5)^2+(y-1)^2=1^2{1<y}
+(x-3.5)^2+(y-1)^2=1^2{1<y}
+y=1{2.5<x<4.5}
+x=5{0<y<4}
+x=5.5{0<y<4}
+(x-7)^2+(y-1)^2=1^2
+x=-0.25y+11{0<y<2}
+x=0.5y+11{0<y<1}
+x=-0.5y+12{0<y<1}
+x=0.25y+12{0<y<2}
+(x-14)^2+(y-1)^2=1^2
+(x-17.5)^2+(y)^2=2^2{0<y}{x<17.5}
+x=18{0<y<4}
+(x-20.5)^2+(y)^2=2^2{0<y}{x<20.5}
+x=20.5{0<y<4}
\ No newline at end of file