instance print VarDef where
print (VarDef i fs) = printersperse "." [i:flatten $ map print fs]
instance print FunCall where
print (FunCall i args) = [i,"(":printersperse "," args] ++ [")"]
instance print VarDef where
print (VarDef i fs) = printersperse "." [i:flatten $ map print fs]
instance print FunCall where
print (FunCall i args) = [i,"(":printersperse "," args] ++ [")"]