alias pazam {
  ;; Set how much time you'll be in the army (Years)
  set %pazam.service_length 4.5
  ;; Set the date when you started be in the army (Full)
  set %pazam.date_words 31th March 2011 00:00am
  set %pazam.service_length_in_seconds $calc(%pazam.service_length * 365 * 24 * 60 * 60)
  set %pazam.date $ctime(%pazam.date_words)
  set %pazam.nowdays $ctime
  set %pazam.days_on_army $calc(((%pazam.nowdays - %pazam.date)/86400))
  set %pazam.release_date %pazam.date + %pazam.service_length_in_seconds
  set %pazam.release_date_words $asctime(%pazam.release_date)
  set %pazam.precents $calc(((%pazam.nowdays - %pazam.date) * 100) / (%pazam.service_length_in_seconds))
  echo -ta Joined the Army in:02 %pazam.date_words
  echo -ta 03 $+ $str($chr(124),$int(%pazam.precents)) $+ 04 $+ $str($chr(124),$calc(100 - $int(%pazam.precents))) 01(In precents: 02 $+ %pazam.precents $+ $chr(37) $+ 01 $+ )
  ;;unset %pazam.*
}