->

Items : List : String <- Point = <
                                   'A' <- < 1, 1 >
                                   'B' <- < 1, 0 >
                                   'C' <- < 0, 1 >
                                   'D' <- < 0, 0 >
                                 >

Call Search Items < 0, 1 > 0 ( H, 'V' : 
                                        V = H
                             ) 
                             ( R, S, K :
                                         Say 'Found at ' S ', key = "' K '".'
                             )

Say 'Complete.'

Exit