SALARY >>
+
  PCHAR Title, Role, Status 
        Where, Topic, Headline
  FLOAT Level
;

# >>   
+
  Queue = _ (&_, Length : 10)         

  AddTo (Queue, T_SALARY, (P_SALARY 'R) ->
    with R
    +
      ->Title    = Allocate (&_, T_STRING, "Кодерок")
      ->Role     = Allocate (&_, T_STRING, "Игрунчик-развлеканец")
      ->Status   = Allocate (&_, T_STRING, "Клоун среди пидарасов")
      ->Where    = Allocate (&_, T_STRING, "Делис-Инфо бывш Пу-Пу Бызь")
      ->Topic    = Allocate (&_, T_STRING, "Молодой дружный коллектив интересных ребят, которые занимаются недвижимостью")
      ->Headline = Allocate (&_, T_STRING, "У нас комфойтна! Мы следим за волосами в носу")

      ->Level = 0
    ;
  )

  Print (Length (Queue))

  TakeFrom (Queue, (P_SALARY '/R) ->
    with R
    +
      Print (->Level, "\t", ->Role)

      Free (&->Title, &->Role, &->Status,
            &->Where, &->Topic, &->Headline)
    ;
  )

  Print (Length (Queue))
;