#!/usr/bin/perl
use strict;
while(<>)
{
  my $n='';
  chop;
  if($_<0)
  {
    $n='-';
    $_=abs($_);
  }
  my $s=sprintf "%.0f", $_*3600%60;
  printf "$n%d:%02d:%02d\n", $_, $_*60%60, $s;
}