diff --git a/README.md b/README.md
index e3a83bd..d623589 100644
--- a/README.md
+++ b/README.md
@@ -1 +1 @@
-# inflect_rs
+# inflect
\ No newline at end of file
diff --git a/src/inflect.rs b/src/inflect.rs
index b81d054..cbf65ea 100644
--- a/src/inflect.rs
+++ b/src/inflect.rs
@@ -32,3 +32,165 @@ pub fn bysize(words: Vec<&str>) -> HashMap<usize, HashSet<String>> {
     }
     res
 }
+
+pub fn make_pl_si_lists(
+    list: Vec<&str>,
+    pl_ending: &str,
+    si_ending_size: Option<i32>,
+    do_joinstem: bool
+) -> (Vec<String>, HashMap<usize, HashSet<String>>, HashMap<usize, HashSet<String>>, String) {
+    let si_ending_size = si_ending_size.map(|size| -size);
+    let si_list: Vec<String> = list
+        .iter()
+        .map(|&w| {
+            if let Some(size) = si_ending_size {
+                format!("{}{}", &w[..w.len() - (size as usize)], pl_ending)
+            } else {
+                format!("{}{}", w, pl_ending)
+            }
+        })
+        .collect();
+    let pl_bysize = bysize(list.clone());
+    let si_bysize = bysize(
+        si_list
+            .iter()
+            .map(|s| s.as_str())
+            .collect()
+    );
+    if do_joinstem {
+        let stem = joinstem(si_ending_size, Some(list));
+        (si_list, si_bysize, pl_bysize, stem)
+    } else {
+        (si_list, si_bysize, pl_bysize, String::new())
+    }
+}
+
+fn pl_sb_irregular_s() -> HashMap<&'static str, &'static str> {
+    return vec![
+        ("corpus", "corpuses|corpora"),
+        ("opus", "opuses|opera"),
+        ("genus", "genera"),
+        ("mythos", "mythoi"),
+        ("penis", "penises|penes"),
+        ("testis", "testes"),
+        ("atlas", "atlases|atlantes"),
+        ("yes", "yeses")
+    ]
+        .into_iter()
+        .collect();
+}
+
+fn pl_sb_irregular() -> HashMap<&'static str, &'static str> {
+    let mut pl_sb_irregular: HashMap<&str, &str> = vec![
+        ("child", "children"),
+        ("chili", "chilis|chilies"),
+        ("brother", "brothers|brethren"),
+        ("infinity", "infinities|infinity"),
+        ("loaf", "loaves"),
+        ("lore", "lores|lore"),
+        ("hoof", "hoofs|hooves"),
+        ("beef", "beefs|beeves"),
+        ("thief", "thiefs|thieves"),
+        ("money", "monies"),
+        ("mongoose", "mongooses"),
+        ("ox", "oxen"),
+        ("cow", "cows|kine"),
+        ("graffito", "graffiti"),
+        ("octopus", "octopuses|octopodes"),
+        ("genie", "genies|genii"),
+        ("ganglion", "ganglions|ganglia"),
+        ("trilby", "trilbys"),
+        ("turf", "turfs|turves"),
+        ("numen", "numina"),
+        ("atman", "atmas"),
+        ("occiput", "occiputs|occipita"),
+        ("sabretooth", "sabretooths"),
+        ("sabertooth", "sabertooths"),
+        ("lowlife", "lowlifes"),
+        ("flatfoot", "flatfoots"),
+        ("tenderfoot", "tenderfoots"),
+        ("romany", "romanies"),
+        ("jerry", "jerries"),
+        ("mary", "maries"),
+        ("talouse", "talouses"),
+        ("rom", "roma"),
+        ("carmen", "carmina")
+    ]
+        .into_iter()
+        .collect();
+    pl_sb_irregular.extend(pl_sb_irregular_s());
+    pl_sb_irregular
+}
+
+fn pl_sb_irregular_caps() -> HashMap<&'static str, &'static str> {
+    return vec![("Romany", "Romanies"), ("Jerry", "Jerrys"), ("Mary", "Marys"), ("Rom", "Roma")]
+        .into_iter()
+        .collect();
+}
+
+fn pl_sb_irregular_compound() -> HashMap<&'static str, &'static str> {
+    return vec![("prima donna", "prima donnas|prime donne")].into_iter().collect();
+}
+
+fn si_sb_irregular() -> HashMap<&'static str, &'static str> {
+    let mut si_sb_irregular: HashMap<&str, &str> = pl_sb_irregular()
+        .into_iter()
+        .map(|(k, v)| (v, k))
+        .collect();
+    let mut keys_to_remove = Vec::new();
+    for &k in si_sb_irregular.keys() {
+        if k.contains('|') {
+            keys_to_remove.push(k);
+        }
+    }
+    for k in keys_to_remove {
+        si_sb_irregular.remove(&k);
+        let (k1, k2) = k.split_once('|').unwrap();
+        si_sb_irregular.insert(k1, k);
+        si_sb_irregular.insert(k2, k);
+    }
+    si_sb_irregular
+}
+
+fn si_sb_irregular_caps() -> HashMap<&'static str, &'static str> {
+    return pl_sb_irregular_caps()
+        .iter()
+        .map(|(&k, &v)| (v, k))
+        .collect();
+}
+
+fn si_sb_irregular_compound() -> HashMap<&'static str, &'static str> {
+    let mut si_sb_irregular_compound: HashMap<&str, &str> = pl_sb_irregular_compound()
+        .iter()
+        .map(|(&k, &v)| (v, k))
+        .collect();
+    let mut keys_to_remove = Vec::new();
+    for &k in si_sb_irregular_compound.keys() {
+        if k.contains('|') {
+            keys_to_remove.push(k);
+        }
+    }
+    for k in keys_to_remove {
+        si_sb_irregular_compound.remove(&k);
+        let (k1, k2) = k.split_once('|').unwrap();
+        si_sb_irregular_compound.insert(k1, k);
+        si_sb_irregular_compound.insert(k2, k);
+    }
+    si_sb_irregular_compound
+}
+
+fn pl_sb_z_zes_list() -> Vec<&'static str> {
+    return vec!["quartz", "topaz"];
+}
+
+fn pl_sb_z_zes_bysize() -> HashMap<usize, HashSet<String>> {
+    return bysize(pl_sb_z_zes_list());
+}
+
+fn sb_ze_zes_list() -> Vec<&'static str> {
+    return vec!["snooze"];
+}
+
+fn sb_ze_zes_bysize() -> HashMap<usize, HashSet<String>> {
+    return bysize(sb_ze_zes_list());
+}