//
// $Id$
//

procedure main()

   local aArray := {{NIL}}

   aArray  [ 1 /*first*/ ][ 1 /* second */ ] := [Hello]

   QOut( aArray[1][1] )

   QOut( 'World "Peace[!]"' )

   QOut( "Harbour 'Power[!]'" )

   QOut( [King 'Clipper "!"'] )

return