to quizwithscope
 print [What is your name?]
 make "name readlist
 print [Who is the greatest musician of all time?]
 ifelse equalp readlist [John Lennon] [correct][wrong]
end

to correct
 print sentence [Well done] :name
end

to wrong
 print (sentence [I'm sorry] :name [that's not right.])
end