r <- [ 1 ->
     E( 
        12 ,
        "batatas",
        < 'quote ,'tomates >),
  2 ->
     E( 
        12 ,
        "batatas",
        'tomates ),
  3 ->< 12 ,"batatas",< 'quote ,'tomates >>,
  4 ->
     E( 
        12 ,
        "batatas",
        < 'quote ,'tomates >),
  5 ->
     E( 
        12 ,
        "batatas",
        < 'quote ,'tomates >),
  6 ->
     F( 
        'a8 ),
  7 ->
     E( 
        12 ,
        "batatas",
        < 'quote ,'tomates >) ] ;