fficxx-0.2: sample/mysample-generator/use_mysample.hs

import MySample

main :: IO ()
main = do 
  a <- newA 
  b <- newB 
  
  foo a 
  foo b 

  foo (upcastA b) 

  bar b 
  
  foo2 a 3