Simple HTML parser

htmlparser.ts

type λ<T, C> = {tag: T, content: C}

type HTMLParser
  <
    Text extends string,
    Tag extends string = '',
    Content extends string = ''
    > =
  Text extends `${infer L}${infer R}`
    ? L extends '<'
      ? HTMLParser<R, Tag, Content>
      : L extends '>'
        ? λ<Tag, ContentParser<R>>
        : L extends '/'
          ? λ<Tag, ContentParser<R>>
          : HTMLParser<R, `${Tag}${L}`, Content>
    : λ<Tag, Content>


type ContentParser
  <Text extends string, Result extends string = ''> =
  Text extends `${infer L}${infer R}`
    ? L extends '<'
      ? Result
      : ContentParser<R, `${Result}${L}` >
    : never

const h1: HTMLParser<'<h1>bla</h1>'>
const b: HTMLParser<'<br/>'>
const span: HTMLParser<'<span>fooo</span>'> = {tag: 'span', content: 'fooo'}