Data commit

Task/Mad-Libs/Icon/mad-libs.icon

@@ -0,0 +1,16 @@
+procedure main()
+   ml := "<name> went for a walk in the park. There <he or she> _
+          found a <noun>. <name> decided to take it home."  # sample
+   MadLib(ml)                                               # run it
+end
+
+link strings
+
+procedure MadLib(story)
+   write("Please provide words for the following:")
+   V := []
+   story ? while ( tab(upto('<')), put(V,tab(upto('>')+1)) )
+   every writes(v := !set(V)," : ") do
+      story := replace(story,v,read())
+   write("\nYour MadLib follows:\n",story)
+end