set arcp [expr {4+4}]
set sset [expr {4+4+4+ $arcp +4+4+4}]
set dfa  [expr {17*4}]

#set fews 20
#set fewc 15
#set fews 5
#set fewc 5
set fews 19
set fewc 15
set work 1

set smalldfa [expr {
    $dfa
    +(2*$fews*$sset)
    +((1+2*$fews)*4)
    +(4*2*$fews*$fewc)
    +($arcp*2*$fews*$fewc)
}]

set vars [expr {10*4+2*$smalldfa}]

puts $smalldfa
puts $vars

#               fews/fewc
#--------------------------------------------
# struct	20/15	19/15		5/5
#-----------------------------+------+-------
# smalldfa	 8712	 8280 | -432 |	1032
# vars		17464	16600 | -864 |	2104
#-----------------------------+------+-------