diff --git a/shuffle_algebra.f90 b/shuffle_algebra.f90
index c91e03e330804a3d0f4bff3cd6f5c96bec28234c..86d05e73196a2e25708bec4aa62639a22643881d 100644
--- a/shuffle_algebra.f90
+++ b/shuffle_algebra.f90
@@ -21,8 +21,8 @@ PROGRAM shuffle_algebra
     integer :: length
   end type word_sum
 
-  type(word) :: v1 = word("abcd",4)
-  type(word) :: v2 = word("1234",4)
+  type(word) :: v1 = word("abc",3)
+  type(word) :: v2 = word("123",3)
   type(word) :: w1
   type(word_sum) :: ws, ws1, ws2