timestamp <- function ( )

#*****************************************************************************80
#
## timestamp() returns the YMDHMS date as a timestamp.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    21 July 2020
#
#  Author:
#
#    John Burkardt.
#
{
  cat ( date ( ), "\n" )
}