http://qs1969.pair.com?node_id=224162

# Psalm 100 # # 1. Make a joyful noise unto the # LORD, all ye lands. # # 2. Serve the LORD with gladness: # come before his presence with singing. # # 3. Know ye that the LORD he is God: # it is he that hath made us, and not we # ourselves; we are his people, and the # sheep of his pasture. # # 4. Enter into his gates with thanks- # giving, and into his courts with # praise: be thankful unto him, and # bless his name. # # 5. For the LORD is good; his mercy is # everlasting; and his truth endureth to # all generations. MAKE: print "a joyful \a unto the LORD"; $all{ye} = "lands"; sub serve_LORD($gladness) { %come_before = ( his => "presence", with => "singing" ); } $know{ye}{LORD} = "God"; while($made_us ne "ourselves") { $made_us="God"; } we->are( his_people ) && the->sheep( of_his_pasture ); &enter_his_gates(thanksgiving) && &into_his_courts(praise); be->thankful( unto_him ) && bless->his( name ); for($the_LORD eq "good") { while(1) { $his_mercy++; } $his_truth += $all_generations; }