結局キャストをいっぱい書くのが面倒になってこんな関数を作っていたりする (: gsequence+ (case-> (-> Natural GSequence) (-> GNumber GSequence))) (define gsequence+ (case-lambda [([x : Natural]) (gsequence (gnumber x))] [([x : GNumber]) (gseque…