518
519
520
521
522
523
524
525
526
527
528
529
530
531
|
ppvb (svte "punctur") "with";
ppvb (svte "penetrat") "with";
svb (svt "enter");
phrvb (svt "dial") "up";
phrvb (svt "tweet") "up";
svb ("tweet at","tweets at","tweeting at","tweeted at");
svb (svte "placat");
|]
let trverbs = Array.append simple_verbs complex_verbs;;
actions' := simple_verbs
let trvp (f : form) : string = if Random.int 15 != 0 then ((pick trverbs) f (Some (strn ())))
|
|
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
|
ppvb (svte "punctur") "with";
ppvb (svte "penetrat") "with";
svb (svt "enter");
phrvb (svt "dial") "up";
phrvb (svt "tweet") "up";
svb ("tweet at","tweets at","tweeting at","tweeted at");
svb (svte "placat");
svb (svte "destaliniz");
svb ("denazify","denazifies","denazifying","denazified");
|]
let trverbs = Array.append simple_verbs complex_verbs;;
actions' := simple_verbs
let trvp (f : form) : string = if Random.int 15 != 0 then ((pick trverbs) f (Some (strn ())))
|