inline fun <reified T : Parcelable> creator(crossinline create: (Parcel) -> T) = object : Creator<T> {
  override fun createFromParcel(source: Parcel) = create(source)
  override fun newArray(size: Int) = arrayOfNulls<T?>(size)
}

class Foo : Parcelable {
	constructor(parcel: Parcel) { ... }
	
	@JvmField val CREATOR = creator(::Foo)
}