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