@@ -1,9 +1,9 @@
 ; [ʞ] verb.scm
 ;  ~ lexi hale <lexi@hale.su>
 ;  © affero general public license
 ;  > (load "lib/lisp-macro.scm")
-;    (load "lib/struct.scm")
+;    (load "lib/fn-struct.scm")
 ;    (load "lib/verb.scm")
 
 ; macros, functions, and rules  for conjugating verbs and
 ; generating verb phrases. this library rules was written
@@ -160,8 +160,17 @@
 		   (ger [stem "ing"] *o*)
 		   (adj [stem "ing"] *o*)
 		   (pst [ipst]        *o*)
 		   (ppl [ippl]        *o*))
+
+(verb-form (strong-heavy stem final ipst ippl)
+		   ; e.g. drink → drank
+		   (inf [stem]       *o*)
+		   (prs [stem "s"]   *o*)
+		   (ger [stem final "ing"] *o*)
+		   (adj [stem final "ing"] *o*)
+		   (pst [ipst]        *o*)
+		   (ppl [ippl]        *o*))
 
 (verb-form (irregular iinf iprs iger ipst ippl)
 		   ; e.g. have → has → had
 		   (inf [iinf] *o*)