(List
  (If
    (DBracket {B1 UNARY_STRING_z {[DQ [VarSub 1]]}})
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Usage: "][VarSub 0][LIT_CHARS " <private_libdir>"]]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS -1]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('private_libdir', {[VarSub 1]})])
  (If
    (DBracket {B! {B1 UNARY_FILE_f {[DQ [VarSub private_libdir][LIT_CHARS /libarpack.dylib]]}}})
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "ERR: Could not open "][VarSub private_libdir][LIT_CHARS /libarpack.dylib]]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 2]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS -1]}      )
    )
  )
  (For lib [{[LIT_CHARS arpack]}, {[LIT_CHARS openlibm]}, {[LIT_CHARS openspecfun]}, {[LIT_CHARS arpack]}, {[LIT_CHARS lapack]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LIBGFORTRAN_DIRS', {[DQ [VarSub LIBGFORTRAN_DIRS][LIT_CHARS " "][ComSub (Com redirects=[(FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2)]{[LIT_CHARS dirname]} {[ComSub (Pipeline (Com {[LIT_CHARS otool]} {[LIT_CHARS -L]} {[DQ [VarSub private_libdir][LIT_CHARS /lib][VarSub lib][LIT_CHARS .dylib]]}) (Com {[LIT_CHARS grep]} {[LIT_CHARS libgfortran]}) (Com {[LIT_CHARS cut]} {[LIT_CHARS -d] [SQ <LIT_CHARS " ">]} {[LIT_CHARS -f1]}) (Com {[LIT_CHARS xargs]}) )]})]]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LIBGFORTRAN_DIRS', {[DQ [VarSub LIBGFORTRAN_DIRS][LIT_CHARS " "][ComSub (Com redirects=[(FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2)]{[LIT_CHARS dirname]} {[ComSub (Pipeline (Com {[LIT_CHARS otool]} {[LIT_CHARS -L]} {[DQ [VarSub private_libdir][LIT_CHARS /lib][VarSub lib][LIT_CHARS .dylib]]}) (Com {[LIT_CHARS grep]} {[LIT_CHARS libgcc]}) (Com {[LIT_CHARS cut]} {[LIT_CHARS -d] [SQ <LIT_CHARS " ">]} {[LIT_CHARS -f1]}) (Com {[LIT_CHARS xargs]}) )]})]]})])
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LIBGFORTRAN_DIRS', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[DQ [VarSub LIBGFORTRAN_DIRS]]}) (Com {[LIT_CHARS tr]} {[DQ [LIT_CHARS " "]]} {[DQ [\ LIT_ESCAPED_CHAR "\\n"]]}) (Com {[LIT_CHARS sort]}) (Com {[LIT_CHARS uniq]}) (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[SQ <LIT_CHARS "^$">]}) (Com {[LIT_CHARS tr]} {[DQ [\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [LIT_CHARS " "]]}) )]})])
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Found traces of libgfortran/libgcc in "][VarSub LIBGFORTRAN_DIRS]]}  )
  (For name [{[LIT_CHARS gcc_s.1]}, {[LIT_CHARS gfortran.3]}, {[LIT_CHARS quadmath.0]}])
    (For dir [{[VarSub LIBGFORTRAN_DIRS]}])
      (If
        (DBracket {B! {B1 UNARY_FILE_f {[DQ [VarSub private_libdir][LIT_CHARS /lib][VarSub name][LIT_CHARS .dylib]]}}})
        (List
          (Com {[LIT_CHARS cp]} {[DQ [VarSub dir][LIT_CHARS /lib][VarSub name][LIT_CHARS .dylib]]} {[DQ [VarSub private_libdir]]}          )
          (Com {[LIT_CHARS chmod]} {[LIT_CHARS 755]} {[DQ [VarSub private_libdir][LIT_CHARS /lib][VarSub name][LIT_CHARS .dylib]]}          )
          (Com {[LIT_CHARS install_name_tool]} {[LIT_CHARS -id]} {[LIT_OTHER "@"] [LIT_CHARS rpath/lib] [VarSub name] [LIT_CHARS .dylib]} {[DQ [VarSub private_libdir][LIT_CHARS /lib][VarSub name][LIT_CHARS .dylib]]}          )
        )
      )
    )
  )
  (Com {[LIT_CHARS cd]} {[VarSub private_libdir]}  )
  (For file [{[LIT_CHARS openlibm]}, {[LIT_CHARS quadmath.0]}, {[LIT_CHARS gfortran.3]}, {[LIT_CHARS openblas]}, {[LIT_CHARS arpack]}, {[LIT_CHARS lapack]}, {[LIT_CHARS openspecfun]}])
    (For dylib [{[ComSub (Com redirects=[(FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2)]{[LIT_CHARS ls]} {[LIT_CHARS lib] [VarSub file] [LIT_OTHER "*"] [LIT_CHARS .dylib] [LIT_OTHER "*"]})]}])
      (For dir [{[VarSub LIBGFORTRAN_DIRS]}])
        (List
          (Com {[LIT_CHARS install_name_tool]} {[LIT_CHARS -change]} {[DQ [VarSub dir][LIT_CHARS /libgfortran.3.dylib]]} {[LIT_OTHER "@"] [LIT_CHARS rpath/libgfortran.3.dylib]} {[VarSub dylib]}          )
          (Com {[LIT_CHARS install_name_tool]} {[LIT_CHARS -change]} {[DQ [VarSub dir][LIT_CHARS /libquadmath.0.dylib]]} {[LIT_OTHER "@"] [LIT_CHARS rpath/libquadmath.0.dylib]} {[VarSub dylib]}          )
          (Com {[LIT_CHARS install_name_tool]} {[LIT_CHARS -change]} {[DQ [VarSub dir][LIT_CHARS /libgcc_s.1.dylib]]} {[LIT_OTHER "@"] [LIT_CHARS rpath/libgcc_s.1.dylib]} {[VarSub dylib]}          )
        )
      )
    )
  )
)