diff --git a/Strings/Stringoholics.cpp b/Strings/Stringoholics.cpp
new file mode 100644
index 0000000..25f7e80
--- /dev/null
+++ b/Strings/Stringoholics.cpp
@@ -0,0 +1,91 @@
+#define MOD 1000000007
+typedef long long ll;
+
+// Helper function to return progressive sum
+
+ll prod(ll n) {
+    return ((n * (n + 1))) / 2;
+}
+
+// Function to return the min time taken to get the original string after rotation
+
+ll timeTaken(string s) {
+    if (s.size() == 1) {
+        return 1;
+    }
+    while (s.size() % 2 == 0) {
+        string firstHalf = string(s.begin(), s.begin() + s.size() / 2);
+        string secondHalf = string(s.begin() + s.size() / 2, s.end());
+        if (firstHalf == secondHalf) {
+            s = firstHalf;
+        } else break;
+    }
+    ll res = 1;
+    int i = 1;
+    for (; i < 2 * s.size(); i ++) {
+        if (prod(i) % s.size() == 0) {
+            return i;
+        }
+    }
+    return i; 
+}
+
+// Create sieve of erastothenes and map prime numbers
+
+unordered_map<ll, ll> makeSieve(int n = 500) {
+    unordered_map<ll, ll> umap;
+    vector<bool> num(n, 1);
+    for (int i = 2; i * i <= n; i ++) {
+        for (int j = 2; j * i <= n; j ++) {
+            num[i * j] = 0;
+        }
+    }
+    for (int i = 2; i < num.size(); i ++) {
+        if (num[i]) {
+            umap[i] = 0;    
+        }
+    }
+    return umap;
+}
+
+// Seperate the factors of the min. time to get LCM
+
+void seperateFactors(ll num, unordered_map<ll, ll> &umap) {
+    for (auto it: umap) {
+        ll exponentVal = 0;
+        if (num % it.first == 0) {
+            while (num % it.first == 0) {
+                exponentVal ++;
+                num /= it.first;
+            }
+            if (exponentVal > it.second) {
+                umap[it.first] = exponentVal;    
+            }
+        }
+    }
+    if (num != 1) {
+        umap[num] = 1;    
+    }
+    return;
+}
+
+// Driver
+
+int Solution::solve(vector<string> &A) {
+    ll res = 1;
+    auto umap = makeSieve();
+    for (int i = 0; i < A.size(); i ++) {
+        long long val = timeTaken(A[i]);
+        seperateFactors(val, umap);
+    }
+    for (auto it: umap) {
+        ll expVal = 1;
+        ll maxExp = it.second;
+        while (maxExp) {
+            expVal = (expVal * it.first) % MOD;
+            maxExp --;
+        }
+        res = (res * expVal) % MOD;
+    }
+    return res;
+}
\ No newline at end of file