[benjamin@bh4 timelike]$ maple
    |\^/|     Maple 8 (IBM INTEL LINUX)
._|\|   |/|_. Copyright (c) 2002 by Waterloo Maple Inc.
 \  MAPLE  /  All rights reserved. Maple is a registered trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> read 'geometry2';
Warning, the protected names norm and trace have been redefined and unprotected
                             WARNING: Tensor system may not be initialized.

                                           TENSOR_READ := true

                                TensorInit:: Tensor system initialized.

                                               f, PI, PHI

                                                  [     /d   \2     /d   \ /d   \]
                                                  [-1 + |-- f|      |-- f| |-- f|]
                                                  [     \dt  /      \dt  / \dr  /]
                     [TENSOR, _T5, [IS, 2, L, L], [                              ]]
                                                  [/d   \ /d   \         /d   \2 ]
                                                  [|-- f| |-- f|     1 + |-- f|  ]
                                                  [\dt  / \dr  /         \dr  /  ]

                        2 (GeometryN . :  . (Lmetric[ . ] previously computed.))

                             2 (GeometryN . :  . (Computing Umetric[ . ].))

                              2 (GeometryN . :  . (Umetric[ . ] computed.))

                              2 (GeometryN . :  . (Computing Delta[ . ].))

                               2 (GeometryN . :  . (Delta[ . ] computed.))

                             2 (GeometryN . :  . (Computing DLmetric[ . ].))

                             2 (GeometryN . :  . (DLmetric[ . ] computed.))

                              2 (GeometryN . :  . (Computing Chris1[ . ].))

                              2 (GeometryN . :  . (Chris1[ . ] computed.))

                              2 (GeometryN . :  . (Computing Chris2[ . ].))

                              2 (GeometryN . :  . (Chris2[ . ] computed.))

                             2 (GeometryN . :  . (Computing RicciUL[ . ].))

bytes used=4000224, alloc=3407248, time=0.16
                              2 (GeometryN . :  . (RicciUL[ . ] computed.))

                             2 (GeometryN . :  . (Computing RicciLL[ . ].))

                              2 (GeometryN . :  . (RicciLL[ . ] computed.))

                             2 (GeometryN . :  . (Computing RicciSc[ . ].))

                              2 (GeometryN . :  . (RicciSc[ . ] computed.))

                            2 (GeometryN . :  . (Computing EinsteinLL[ . ].))

                            2 (GeometryN . :  . (EinsteinLL[ . ] computed.))

                                               2  /d     \        /d    \
                                       (-1 + PI ) |-- PHI|   2 PI |-- PI| PHI
                                                  \dr    /        \dr   /
                           DPI_DT := - ------------------- + ----------------
                                                   2                    2
                                            1 + PHI              1 + PHI

                                                       d
                                            DPHI_DT := -- PI
                                                       dr