let foo = () =>
  bar(x =>
    bar(x =>
      bar(
        x =>
          bar(
            x =>
              bar(
                x =>
                  bar(
                    x =>
                      bar(
                        x =>
                          bar(
                            x =>
                              bar(
                                x =>
                                  bar(
                                    x =>
                                      bar(
                                        x =>
                                          bar(
                                            x =>
                                              bar(
                                                x =>
                                                  bar(
                                                    x =>
                                                      bar(
                                                        x =>
                                                          bar(
                                                            x =>
                                                              bar(
                                                                x =>
                                                                  bar(
                                                                    x =>
                                                                      bar(
                                                                        x =>
                                                                          bar(
                                                                            x =>
                                                                              bar(x => bar(x => x)),
                                                                          ),
                                                                      ),
                                                                  ),
                                                              ),
                                                          ),
                                                      ),
                                                  ),
                                              ),
                                          ),
                                      ),
                                  ),
                              ),
                          ),
                      ),
                  ),
              ),
          ),
      )
    )
  )
