->

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

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

Say 'Complete.'

Exit