Gustaf I var ,som