Sub IsAlain(value As Object, index As Int, Arr As List) As Object 'ignore
Dim tmpObj As Map = value
Return (tmpObj.Get("name") = "Alain")
End Sub
Sub YounderThan40(value As Object, index As Int, Arr As List) As Object 'ignore
Dim tmpObj As Map = value
Return (tmpObj.Get("age") < 40)
End Sub
' HERE STARTS YOUR APP
Sub BANano_Ready()
Dim myList As List
myList.Initialize
myList.Add(CreateMap("name": "Alain", "age": 47))
myList.Add(CreateMap("name": "Jos", "age": 35))
myList.Add(CreateMap("name": "Carine", "age": 41))
Log(BANano.Find(myList, "IsAlain"))
Log(BANano.Find(myList, "YounderThan40"))
...