exp.forth

-> amount => type
#[
  1   'food delivery' 
  2   'groceries'
  3   'snacks'
  4   'sport'
  5   'public transport'
  6   'maintenance'
  7   'medical'
  8   'travel'
  9   'subscriptions'
  10  'electricity'
  11  'water'
  12  'common charges'
  13  'hobby'
  14  'supplements'
  15  'insurance'
  16  'mental health'
  17  'personal'        
]# 
type @ at type !
type @ nil = if -1 exit then
#[ 'year'     year
   'month'    month
   'day'      day
   'category' type @
   'cost'     amount ]#
  'http://192.168.0.10:8090/expense' http-post'