implicit val stringToStrings = new ToAst[String] {
    type TypeMember = Strings
  }

   implicit def toFunctional[T](seq: Sequence[T])(implicit ast: ToAst[T]) = new ToFunctional[T, ast.TypeMember, Typed](seq)

// trying to rewrite to


 implicit val stringToStrings = new ToAst[String,Strings]
 implicit def toFunctional[T](seq: Sequence[T])(implicit ast: ToAst[T,Ast]) = new ToFunctional[T, Ast, Typed](seq)