$res = "__"

def lamb(&lamb)

3.times do
    puts $res=lamb.call
    end
    puts "-------at the end of lamb() : #{$res}"
end

def lamb_test
    lamb { return puts " return in lamb() " }
    puts "--------at the  lamb_test() end"
end


def bl
3.times do
    puts $res= yield
    end
    puts " ------at the end of bl() :#{$res}"
end

def bl_test
    bl do return puts "use return in bl()" end
    puts "-----at the end of test_test()"
end


def p(&pro)
3.times do
    puts $res = pro.call
    end
    puts "-----at the end of  p() : #{$res}"
end

def p_test
    p do return puts "use return in p() of p_test()" end
    puts "-----at the end of p_test()"
end



puts "-------------lambda----------"
nextt = lambda{ next "next  in lamb()"; puts "behind next" }
breakk = lambda{ break "break in in lamb()";puts "behind break" }
ret = lambda{ break "return in in lamb()";puts "behind return" }
lamb(&nextt)
lamb(&breakk)
lamb(&ret)
lamb_test


puts "\n----------------block--------"
bl { next "next in  bl()" ; puts "behind next" }
bl { break "break in  bl() " ;puts "behind break" }
#bl { return "return in  bl() " ;puts "behind return" }
bl_test

puts "\n-----------proc------------"
ne = Proc.new { next "next in p() "; puts "behind next"  }
br = Proc.new { break "break in p() " ;puts "behind break" }
#retu = Proc.new { return "return in p() " ;puts "behind return" }
p(&ne)
#p(&br)
#p(&retu)
p_test