por-passive.gf

  -- hack to get the same behaviour as from variants. parses both,
  -- linearizes the first.
  vars : Str -> Str -> Str = \x,y -> pre { "" => x ; _ => y } ;
  
  mkPass : Str -> Gender => Number => Str ;
  -- passive form is highly predictable from singular masculine form
  mkPass p = case p of {
    amad + "o" => genNumForms p (amad + "a") (amad + "os") (amad + "as") ;
    entregu + "e" => \\g => numForms p (entregu + "es") ;
    _ => error "unknown ending" -- nothing should reach here
    } ;

interstingly,

> cc vars "oi" "tchau" ++ []
pre {"tchau"; "oi" / strs {[]}}
> cc vars "oi" "tchau" + []
"tchau"

is this expected?