// **********************************************************************
//                   Экзотические хвосты
//
// **********************************************************************
// **********************************************************************
//                   хвост_be
// **********************************************************************
@Перевод
{
   @Структура  to_сущ = @0гр_сущ_а ;
   @Структура  to_сущ = гр_сущ_а( Д ) ;
}

@Перевод
{
   @Выбор      _to_сущ = to_сущ @00;
   @Выбор      _to_сущ = to_сущ @00;
}

@Перевод
{
   @Структура  to_be = @0@0;
   @Структура  to_be = @0;
}

@Перевод
{
   @Выбор      _to_be = to_be @00;
   @Выбор      _to_be = to_be @00;
}

@Перевод
{
   @Выбор      хвост_be_b = 
               гр_сущ_а 
               опр_прилагательный1 
               мест_сущ1( &Р, &Л, &Ч ) 
               мест_сущ2 
               гр_наречия 
               гр_квази_наречия 
               гр_квази_наречия_предлог 
               гр_прил_предлог 
               @00
               ;
// Ich bin dubina
// предлог_сущ          // in Жопа (возможно это обстоятельство???)
// in Жопа (возможно это обстоятельство???)
// good
// It is she
// It is me
// far from ripe = далеко от созревания
// гр_кв_наречия1          // hard to crack
// hard to crack
// Nobody knows whose it is.
   @Выбор      хвост_be_b( число &Число, род &Род, падеж &Падеж ) = 
               гр_сущ_а( Падеж ) 
               опр_прилагательный1( Род, Падеж, Число ) 
               мест_сущ1( &Род1, &Лицо, &Число1, Падеж ) 
               мест_сущ2( Падеж ) 
               гр_наречия 
               гр_квази_наречия 
               гр_квази_наречия_предлог( Род, Число ) 
               гр_прил_предлог( Род, Падеж, Число ) 
               @00
               ;
// предлог_сущ
// гр_кв_наречия1
}

@Перевод
{
   @Структура  хвост_be_a = _to_сущ _to_be хвост_be_b ;
   @Структура  хвост_be_a( число &Число, род &Род, падеж &Падеж ) = 
               _to_сущ _to_be хвост_be_b( Число, Род, Падеж ) ;
}

@Перевод
{
   @Структура  хвост_be = хвост_be_a _обстоятельство ;
   @Структура  хвост_be( число &Число, род &Род, падеж &Падеж ) = 
               хвост_be_a( Число, Род, Падеж ) _обстоятельство ;
}

// **********************************************************************
//                   хвост для there_is
// **********************************************************************
@Перевод
{
// ----- для there_is -------
   @Выбор      хвост_there_a = гр_сущ_в предлог_сущ @00;
   @Выбор      хвост_there_a( число Число, падеж &Падеж, род Род ) = 
               гр_сущ_в( &Число, Падеж, &Род ) предлог_сущ @00;
}

// **********************************************************************
//            хвост have
// **********************************************************************
@Перевод
{
   @Структура  have_пассив = гр_сущ_б глагол( &S1, Form3 ) ;
   @Структура  have_пассив( число Число, падеж &Падеж, род Род ) = 
               гр_сущ_б( &Число, &Лицо, И, &Род ) 
               глагол( Несов, глагол, @0, Число, @0, Род, Пассив, @0 ) 
               ;
}

@Перевод
{
   @Выбор      хвост_have_а = гр_сущ_в have_пассив ;
   @Выбор      хвост_have_а( число Число, падеж &Падеж, род Род ) = 
               гр_сущ_в( &Число, Падеж, &Род ) 
               have_пассив( &Число, Падеж, &Род ) 
               ;
}

@Перевод
{
   @Структура  хвост_have = хвост_have_а _обстоятельство ;
   @Структура  хвост_have( число Число, падеж &Падеж, род Род ) = 
               хвост_have_а( &Число, Падеж, &Род ) _обстоятельство ;
}