syntax logoPlayer_syntax (logoPlayer_lexique) {

  rule <start_symbol> {
    # Routine definition
    $PROGRAM$
    @routineMap routineArray = {}
    <routines> !? routineArray

    $BEGIN$
    <instructions> !? routineArray
    $END$
    $.$
  }

  rule <routines> ?! @routineMap routineArray {
    repeat
    while
      <routine> !? routineArray
    end
  }

  rule <routine> ?! @routineMap ioRoutineArray {
    $ROUTINE$
    $identifier$ ?let @lstring routineId
    [ !? ioRoutineArray insertKey !routineId ]
    log routineId
    $BEGIN$
    <instructions> !? ioRoutineArray
    $END$
  } 

  rule <instructions> ?! @routineMap ioRoutineArray {
    repeat
    while
      <instruction> !? ioRoutineArray
    end
  }

  rule <instruction> ?! @routineMap ioRoutineArray {
    select
      <move>
    or
      <set_pen>
    or
      <call_routine> !? ioRoutineArray
    end
    $;$
  }

  rule <move> {
    select
      $FORWARD$
    or
      $ROTATE$
    end
    $integer$ ?let @luint moveLen
    log moveLen
  }

  rule <set_pen> {
    $PEN$
    select
      $UP$
    or
      $DOWN$
    end
  }

  rule <call_routine> ?! @routineMap ioRoutineArray {
    $CALL$
    $identifier$ ?let @lstring routineId
    [ ioRoutineArray searchKey !routineId ]
  }
    
}